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1 .REM ! 
2 
3 
4 
5 
? 
: IDENTIFICATION 
10 
3 : PRODUCT CODE: AC -8476D -MC 
1 
PRODUCT NAME: CZDHIDO DH11 BREAK AND HALF-DUPLEX TEST 
15 DATE: JUNE 1985 
16 
a? MAINTAINER: MK NAC SOFTWARE ENGINEERING 
1 
19 
3 
22 THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
23 NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
24 EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
25 RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS 
> DOCUMENT. 
28 NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
29 SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIDGITAL OR 
2 ITS AFFILIATED COMPANIES. 
1 
32 


33 
34 COPYRIGHT (C) 1985 BY DIGITAL EQUIPMENT CORPORATION 
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i. ABSTRACT 


THE DHi1 BREAK AND HALF DUPLEX TEST CHECKS THE BREAK 
CONTROL LOGIC OF THE DHil AND VERIFIES THAT THE UARTS 
RECEIVE ONLY ONE BREAK CHARACTER ON A GIVEN 

LINE NO MATTER HOW LONG BREAK IS ASSERTED. 

THE TEST ALSO VERIFIES THAT NO CHARACTERS ARE 
RECEIVED ON A A LINE IF THE HALF DUPLEX FUNCTION FOR 
THAT LINE IS SELECTED. 





SEQ 2 
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REQUIREMENTS 
2.1 EQUIPMENT 
POP-11 FAMILY STANDARD COMPUTER WITH 4KW OF MEMORY 
ASR-33 TELETYPE OR EQUIVALENT 
DH11 ASYNCHRONOUS MULTIPLEXER 
DM11 MAINTENANCE CARD INSTALLED 
2.2 STORAGE 
THE PROGRAM LOADS INTO 4KW OF MEMORY 
3. LOADING PROCEDURE 


THE STANDART PROCEDURE FOR LOADING ABSOLUTE BINARY TAPES 
IS TO BE USED 


STARTING PROCEDURE 
4.1 CONTROL SWITCH SETTINGS 
AFTER PROGRAM LOAD CINITIAL PROGRAM START) 
ALL CONSOLE SWITCHES DOWN 


4.1.2 TO MODIFY DEVICE VECTOR AND CONTROL REGISTER ADDRESSES 
AFTER PROGRAM RESTART 


Sw00=1 
4.1.3 TO START PROGRAM AT SELECTED TEST AFTER PROGRAM RESTART 
SWO1=1 
4.2 STARTING ADDRESS 
THE STARTING ADDRESS FOR ALL TESTS IS 000200 
THE RESTART ADDRESS FOR ALL TESTS I 0002000 
THE STARTING ADDRESS TO ENTER A SELECTED TEST IS 000200 


, 
~ 
~ 


4.3 PROGRAM AND/OR OPERATOR ACTION 

4.3.1 INITIAL PROGRAM START 

4.3.1.1 LOAD PROGRAM INTO MEMORY 

4.3.1.2 LOAD ADDRESS 000200 

4.3.1.3 CLEAR CONSOLE SWITCHES 

4.3.1.4 PRESS START 

4.3.1.5 THE PROGRAM WILL TYPE “DH11 BREAK AND HALF -DUPLEX TEST” 


AND WILL THEN TYPE “VECTOR ADDRESS-” AND WAIT FOR AN 
INPUT FROM THE TELETYPE KEYBOARD. 





SEQ 3 
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4.3 (CONT’D) 


4.3.1.6 TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR 
FOR THE DHi1l TO BE TESTED FOLLOWED BY <CARRIAGE RETURN> 


NOTE: WORDS IN ANGLE BRACKETS, I.E. <CARRIAGE RETURN> MEAN THAT 
THE TELETYPE KEY WITH THE NAMED FUNCTION SHOULD BE STRUCK 


IF AN INCORRECT ADDRESS IS ENTERED, THE PROGRAM 

WILL TYPE "?” AND WILL REPEAT THE SECOND MESSAGE OF 4.3.1.5 
4.3.1.7 THE PROGRAM WILL TYPE “CONTROL REGISTER ADDRESS-”“ 

AND WAIT FOR AN INPUT FROM THE TELETYPE KEYBOARD 


4.3.1.8 TYPE IN THE ADDRESS OF THE SYSTEM CONTROL REGISTER OF THE 
DH1i TO BE TESTED FOLLOWED BY <CARRIAGE RETURN> 


IF AN INCORRECT ADDRESS IS TYPED, THE PROGRAM WILL TYPE 
"2" AND WILL THEN REPEAT THE MESSAGE OF 4.3.1.7 


4.3.1.9 THE PROGRAM WILL TYPE “"R” TO INDICATE THAT IT IS 


ABOUT TO START TESTING, AND THEN TESTING WILL BEGIN 
PROGRAM RESTART WITH ALL SWITCHES DOWN 

. 1 PERFORM 4.3.1.2 TO 4.3.1.5 

-5.2.2 THE PROGRAM WILL TYPE "DH11 BREAK AND HALF-DUPLEX TEST” 
AND WILL THEN CONTINUE AS DESCRIBED IN 4.3.1.9 

PROGRAM RESTART WITH SWOO=1 

1 LOAD ADDRESS 000200 

2 SET SWO1=1 

-3 PRESS START 

4 THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1.5 TO 4.3.1.9 
PROGRAM RESTART WITH SWO1=1 


> gs fe fe > SPALL > 
Pease 2 WWUUWW Ww 


1 

2 SET 

-3 PRESS START 

4 THE PROGRAM WILL TYPE “DH11 BREAK AND HALF-DUPLEX TEST” 
AND WILL THEN TYPE “TEST PC-" AND WILL WAIT FOR AN INPUT 

FROM THE TELETYPE KEYBOARD 

4.3.4.5 TYPE IN THE ADDRESS OF THE TEST AT WHICH THE PROGRAM IS TO 

BE gf Ri ag BY <CARRIAGE RETURN> 

4.3.4.6 THE PROGRAM WILL TYPE R TO INDICATE THAT IT HAS STARTED 

AND WILL START TESTING AT THE SELECTED TEST. 


NOTE: CARE MUST BE TAKEN WHEN THS FEATURE IS USED, SINCE 
THERE IS NO PROTECTION AGAINST SELECTING AN ADDRESS THAT 
IS IN THE MIDOLE OF A TEST 


NOTE: IF IT IS DESIRED TO LOOP ON THE TEST THAT IS SELECTED 
SET SWi4=1 BEFORE ENTERING THE TEST ADDRESS 





CZOHI-DO 
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5.2 
5.2.1 


3.2.2 


5.2.3 





OPERATING PROCEDURE 
OPERATIONAL SWITCH SETTINGS 


SW15=1, HALT ON ERROR 

SW1i4=1, LOOP ON CURRENT TEST 

SWiS=1, SUPPRESS ERROR TYPEOUT 

SWii=1, INHIBIT ITERATIONS 

SW10=1, ESCAPE TO NEXT TEST ON ERROR 

SWO9=1, FREEZE VARIABLE PARAMETER IN CURRENT TEST 
SWO1=1, START PROGRAM AT SELECTED TEST 

SWOO=1, CHANGE PARAMETERS AT PROGRAM RESTART 


SUBROUTINE ABSTRACTS 

TRAPCATCHER (LOCATIONS 000000-000776) 

THIS ROUTINE IS USED TO INTERCEPT UNEXPECTED INTERRUPTS 
AND TRAP 


S. THE AREA FROM 000000-000776 IS LOADED 
WITH THE FOLLOWING SEQUENCE 


: oeonw 
We 


oO 


IF AN UNEXPECTED INTERRUPT OR TRAP OCCURS, THE PROGRAM 
WILL HALT WITH THE PC 2 GREATER THAN THE ADDRESS TO 
WHICH THE PROGRAM TRAPPED. THE PROCESSOR STACK MAY 

BE EXAMINED TO DETERMINE WHERE THE PROGRAM WAS WHEN THE 
TRAP OR INTERRUPT OCCURED. 


START (PROGRAM INITIALIZATION) 


THIS ROUTINE INITIALIZES ALL PROGRAM FLAGS AND COUNTERS, 
TYPES THE PROGRAM TITLE MESSAGE, AND INPUTS THE VECTOR 
AND CONTROL REGISTER ADDRESSES OF THE DHii TO BE TESTED. 


BEGIN (PROGRAM START AND RESTART) 


THIS ROUTINE IS ENTERED eg ghey AFTER “START” 

AND EACH TIME A PROGRAM PASS HAS BEEN COMPLETED. 

THE ROUTINE SETS UP THE PROCESSOR STACK AND STATUS WORD 

AND THEN TRANSFERS CONTROL TO THE TEST AT WHICH 

TESTING WILL BEGIN. IF SWO1*0 WHEN THIS ROUTINE IS ENTERD 
TESTING WILL START AT Ti CTEST 1). IF SWOl=1 WHEN 

THES ROUTINE IS ENTERED, TESTING WILL START AT THE PC 

ENTERED FROM THE TELETYPE KEYBOARD. 








CZOHI -DO 


CSBNOUS UNH 





SEQ 6 
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5.2.4 


5.2.5 


5.2.6 





EOP (END OF PASS) 


THIS ROUTINE IS ENTERED ONCE PER PASS AFTER ALL TESTS 
HAVE BEEN COMPLETED. THIS ROUTINE TYPES THE MAINDEC 
IDENTIFICATION CODE OF THE PROGRAM, CLEARS ERROR FLAGS 
AND UPDATES THE PASS COUNT. IF THE PROGRAM WAS LOADED 
UNDER ACT11 OR DDP, THE ROUTINE CHECKS FOR RETURN TO 
THE ACT11 OR DDP MONITOR. IF THE PROGRAM IS NOT UNDER 
MONITOR CONTROL, THE ROUTINE TRANSFERS TO BEGIN. 


SCOPER (SCOPE LOOP AND ITERATION HANDLER) 


THIS ROUTINE IS ENTERED EACH TIME A TEST IS COMPLETED. 

THE ROUTINE CHECKS FOR THE FOLLOWING UPON ENTRY 

A) i SWi0=1, THE ROUTINE WILL TRANSFER TO THE NEXT TEST 

N SEQUENCE, AFTER CLEARING ERROR FLAGS. 

B) + SWii=1, THE ROUTINE WILL TRANSFER TO THE NEXT TEST 
SEQUENCE, AFTER CLEARING ERROR FLAGS. 

C) IF SWi4é*1, THE ROUTINE WILL LOOP ON THE CURRENT TEST 
REGAROLESS OF THE ITERATION COUNT. 


IF NONE OF THE ABOVE IS TRUE, THE ROUTINE WILL ADD 1 

TO THE COUNT OF TEST ITERATIONS, AND COMPARE THIS VALUE 
TO THE NUMBER OF ITERATIONS THAT SHOULD BE PERFORMED. 

IF THESE NUMBERS ARE EQUAL, THE ROUTINE WILL TRANSFER 
TO THE NEXT TEST IN SEQUENCE. THE THE NUMBERS ARE NOT 
EQUAL, ‘HE TES) CURRENTLY IN PROGRESS WILL BE REPEATED. 


SCOPIR (FREEZE ON CURRENT DATA) 
THE CALL Li THIS ROUTINE FOLLOWS IMMEDIATLY AFTER THE 


OCCURS. 
IF SWO9=1 1, THE ROUTINE WILL TRANSFER CONTROL BACK TO THE 
TEST AT A POINT WHICH WILL ALLOW REPEATING THE FUNCTION 
UNDER TEST CONTINUOUSLY WITH THE SAME DATA. IF THIS 
OPTION IS SELECTED, THE ROUTINE “SCOPER” IS NEVER ENTERED 
AND ITERATION COUNTS WILL NOT BE UPDATED. 





CZDHI -DO 
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3.2.7 


5.2.8 





ERRORS CERROR HANDLER) 


THIS ROUTINE IS ENTERED UPON ERROR DETECTION ONLY. 
WITH ALL CONSOLE SWITCHES DOWN, THE ROUTINE PROCEDES AS FOLLOWS: 
A) THE PC OF THE INSTRUCTION THAT CALLED THE ERROR HANDLER 
IS ACCESSED THRU THE STACK, AND THEN THE EMT INSTRUCTION 
ITSELF IS FETCHED. THE 8 LSB OF THE EMT 
INSTRUCTION ARE THE ERROR CODE. THIS CODE IS 
USED 10 ACCESS A TABLE OF ERROR MESSAGES AND ERROR 
DATA STORAGE LOCATIONS. 
B) IF THE TEST THAT FAILED DID NOT FAIL PREVIOUSLY 
DURING THIS PASS, A COMPLETE ERROR REPORT IS MADE 
IF THE TEST THAT FAILED FAILED MOR THAT ONCE DURING 
THE CURRENT PASS, ONLY THE DATA RELATING TO THE FAILUER 
IS TYPED. IF SWi3=1, NO ERROR TYPEOUT IS MADE. 
THE ROUTINE NOW CHECKS FOR HALT ON ERROR. OF SW1i5=1 
THE PROGRAM WILL HALT WITH THE PC OF THE CALL TO 
THE ERROR ROUTINE IN RO. IF SWiS=0, THE PROGRAM WILL 
NOT HALT, BUT WILL CHECK FOR ESCAPE TO NEXT TEST. 
IF SWi0*0, THE ROUTINE WILL RETURN 
TO THE TEST IN PROGRESS. IF SWi0=1, THE ROUTINE WILL 
ABORT THE CURRENT TEST, AND TRANSFER TO THE NEXT 
TEST IN SEQUENCE, THRU THE ROUTINE “SCOPER”. 


TRPSRY CTRAP DECODE AND DISPATCH) 


THIS ROUTINE DECODES THE 8 LSB OF THE TRAP INSTRUCTION 
THAT CAUSED TH PROGRAM INTERRUPT, AND TRANSFERS CONTROL 
TO THE ROUTINE THRU THE TABLE “TRPTAB” USING THE 8 LSB 
OF THE TRAP INSTRUCTION AS AN OFFSET TO THE POINTER TO 
THE ROUTINE TO BE ENTERED. 


Cc 


ead 


ad 





CZDHI-DO 


-— 
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MACRO VO4.00 27-JUN-85 13:08:01 PAGE 9 


5.3 
5.3.1 
5.3.1.1 


5.3.1.2 


5.3.1.3 


5.3.1.4 


5.3.2 


5.3.3 


5.3.3.1 
5.3.3.2 


5.3.3.3 


5.3.4 


5.3.6 


5.3.7 





PROGRAM AND OR OPERATOR ACTION 

PROGRAM START WITH ALL SWITCHES DOWN 

REFER TO SECTIONS 4.3.1 AND 4.3.2 FOR INITIAL PROGRAM 
BEHAVIOR. 

AFTER “R” HAS BEEN TYPED BY THE PROGRAM, TEST EXECUTION 
WILL BEGIN. EACH TEST WILL BE REPEATED A SELECTED NUMBER 
OF ITERATIONS (SEE LISTING FOR EXACT NUMBER FOR EACH TEST) 
AND THEN THE PROGRAM WILL PROCEED TO THE NEXT TEST. 

WHEN ALL ITERATIONS HAVE BEEN COMPLETED, THE PROGRAM 
WILL TYPE “CZDHI” AND THEN RESTART TESTING AT TEST 1 
(LOCATION T1 IN THE PROGRAM). 


IF AN ERROR OCCURS, THE PROGRAM WILL TYPE AN APPROPRIATE . 
ERROR MESSAGE, AND THEN CONTINUE THE TEST IN PROGRESS. 


PROGRAM START WITH SWO0O=1 

THE PROGRAM WILL PERFORM AS DESCRIBED IN 4.3.1 AND 5.3.1 
PROGRAM START WITH SWOi=1 

REFER TO SECTION 4.3.4 FOR INITIAL PROGRAM BEHAVIOR 


TEST EXECUTION WILL START AT THE ADDRESS SPECIFIED 
AND WILL CONTINUE AS DESCRIBED IN 5.3.1.2 


AFTER “CZDHI” HAS BEEN TYPED, THE PROGRAM WILL 
RESUME TESTING AT TEST 1 


PROGRAM OPERATION WITH SW1i5=1 

SAME AS 5.3.1, EXCEPT THAT IN THE CASE OF AN ERROR, 
THE PROGRAM WILL HALT AFTER THE ERROR TYPEOUT, AND 

THE PC+2 OF THE CALL TO THE ERROR ROUTINE WILL BE 
DISPLAYED IN RO. 

PROGRAM OPERATION WITH SWi3-1 

SAME AS 5.3.1 EXCEPT THAT NO ERROR TYPEOUTS WILL OCCUR 
PROGRAM OPERATION WITH SWil=1 


nig AS 5.3.1 EXCEPT THAT EACH TEST WILL BE REPEATED ONCE 


PROGRAM OPERATION WITH SW10=1 


SAME AS 5.3.1, EXCEPT THAT IN THE CASE OF AN ERROR 
THE CURRENT TEST WILL BE ABORTED, AND THE PROGRAM 
WILL PROCEED TO THE NEXT TEST IN SEQUENCE. 





-— 


5.3.8 


6.1.1 


6.2 
6.2.1 


6.2.2 


6.2.3 








(CONT‘D) 


PROGRAM OPERATION WITH SWi4=1, OR SWO9=1 


THESE FUNCTIONS ARE NORMALLY USED FOR TROUBLE SHOOTING. 
SEE SECTION 6.3 FOR THEIR USE. 


ERRORS 
ERROR HALTS 


THE ERROR MESSAGE FORMAT FOR ALL ERROR TYPEOUTS 
IS AS FOLLOWS 


PC+2 MESSAG 
HEADER. CIF APPLICABLE) 
DATA CIF APPLICABLE) 


WHERE 

PC+2 IS THE ADDRESS OF THE CALL TO THE ERROR HANDLER + 2 
MESSAGE IS AN ASCII MESSAGE DESCRIBING (BRIEFLY) THE FAILURE 
HEADER IS A DESCRIPTION OF THE DATA TO FOLLOW 

DATA IS OCTAL INFORMATION RELATING TO THE CAUSE OF THE FAILURE 
IF THE SAME ERROR OCCURS IN A GIVEN TEST ON THE SAME 

PASS, AND IF DATA IS ASSOCIATED WITH THAT ERROR, ONLY 

DATA IS TYPE ON SUCCEEDING ERROR TYPEOUTS 


IF NO DATA IS ASSOCIATED WITH THE ERROR 
THE COMPLETE ERROR MESSAGE IS TYPED. 


ERROR DESCRIPTIONS 

SEE LISTING FOR DETAILS OF ERRORS 
ERROR RECOVERY 

SW15*0 


IF THE PROGRAM IS RUN WITH SWi5=0, NO OPERATOT ACTION IS 
ry ag TO CONTINUE TESTING 


IF THE PROGRAM IS oe WITH SWiS*1, TO CONTINUE TESTING 
AFTER THE PROGRAM HAS HALTED, PRESS THE PROCESSOR 
CONSOLE CONTINUE SWITCH 


ILLEGAL INTERRUPTS 


AN INTERRUPT OCCURS TO A VECTOR ADDRESS NOT 
SELECTED DURING PROGRAM INITIALIZA PR 
HALT IN THE TRAPCATCHER. THE ADDRESS AT WHICH 
THE PROGRAM HALTS IS 2 GREATER THAN THE ADDRESS 

TO WHICH THE INTERRUPT OCCURED. THE PROGRAM MUST BE 
RESTARTED AT 200 TO RECOVER FROM THIS ERROR. 











CZOHI-DO0 
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6.3 
6.3.1 





SCOPE LOOPING 

TO SCOPE ON A SPECIFIC TEST, SET SWi4=1 AND SW13=1 

THIS WILL CAUSE THE PROGRAM TO CONTINUOUSLY LOOP ON THE 
SAME TEST, AND WILL CAUSE ALL ERROR TYPEOUTS TO BE INHIBITED 
TO SCOPE ON A SPECIFIC VALUE OF A a WITHIN 

A TEST, SET SWO9=1 TO FREEZE THE DATA 

(SEE LISTING FOR THOSE TESTS THAT INCORPORATE THIS FEATURE) 
(CONT‘D) 

PROGRAM START TO SCOPE LOOP ON SELECTED TEST 

PERFORM SECTION 4.3.4 WITH SWi4=1 

RESTRICTIONS 

STARTING 

THE DHii TEST CARD MUST BE INSTALLED 

RUNNING 

NONE 

MISCELLANEOUS 

EXECUTION TIME 

THE TIME FOR ONE PASS OF THE PROGRAM (END OF 

TYPEOUT OF CZDHI TO END OF TYPEOUT OF CZDHI) 

IS GIVEN FOR VARIOUS PROCESSORS IN THE TABLE BELOW 


TIME 
PROCESSOR 


PDP-11/05,10 
POP-11/20 
PDP-11/40 
POP -11/45 





SEQ 10 


CZOHI-DO 
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-TITLE CZDHI-D0 
-ENABLE ABS 
-NLIST ileal 


-LIST 


sSWITCH REGISTER OPTIONS 


SW15=100000 :*1,HALT ON 
SW14=40000 
SW13=20000 :*1, INHIBIT ERROR TYPEOUT 





SEQ 11 
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PROGRAM DESCRIPTION 


THE FIRST GROUP OF TESTS VERIFIES THAT ONLY ONE BREAK 
CHARACTER IS RECEIVED ON A GIVEN LINE, EVEN THOUGH BREAK 

IS ASSRETED FOR THAT LINE FOR 400 COCTAL) CHARACTER TIMES. 
THERE IS AN INDIVIDUAL TEST LOOP FOR EACH LINE. 

THE TEST BEGINS BY FLUSING EACH UART BY TRANSMITTING 

TO NULL (0) CHARACTERS. THE BREAK BIT IS THEN SET 

FOR THE LINE TO BE TESTED, TRANSMISSION OF THE BINARY COUNT 
PATTERN IS STARTED. THE SILO IS THEN CHECKED TO VERIFY 
THAT ONLY ONE CHARACTER WAS RECEIVED 

AND THAT IT WAS A BREAK CHARACTER. 


THE SECOND GROUP OF TESTS VERIFIES THAT NO CHARACTERS 
ARE RECEIVED ON A SELECTED LINE IF THE HALF DUPLEX BIT 
IS SET FOR THE LINE TO BE TESTED. THERE IS AN INDIVIDUAL 
TEST LOOP FOR EACH LINE TO BE TESTED. A BINARY COUNT 


WHEN ALL CHARACTERS HAVE BEEN TRANSMITTED, THE CHARACTER 
AVAILABLE FLAG IS TESTED TO DETERMINE IF ANY CHARACTERS HAVE 
BEEN RECEIVED. 


LISTING 


oD, CND 
#71972, 1976, 1985/,+*/DH1i BREAK AND HALF DUPLEX TEST/,*t/CZDHI-DO/ 


WILL 
; TYPE IN THE ADDRESS OF THE RECEIVER INTERRUPT VECTOR 
sFOR THE OHii TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN> 
sPROGRAM WILL TYPE “CONTROL REGI ADDRE 


| ST REGISTER 
sFOR THE OH11 TO BE TESTED, FOLLOWED BY <CARRIAGE RETURN> : 3 
sPROGRAM WILL TYPE “R* TO INDICATE THAT TESTING HAS STARTED 
sAT THE END OF A PASS, PROGRAM WILL TYPE “ CZDHI-DO ” 
sAND THEN RESUM TESTING 


ERROR 
3=1,L.00P ON CURRENT TEST 





CZOHI-00 
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010000 


$#12=1000C 
$¥11=4000 


$#10=2000 
S¥09=1000 
SWO08=400 


s*1, INHIBIT ITERATIONS 
s*1,.ESCAPE TO NEXT TEST ON ERROR 
3*1.LO0P WITH CURRENT DATA 


sRESTART PROGRAM AT SELECTED TEST 
sRESELECT VECTOR AND CONTROL patie 
sADDRESS AFTER PROGRAM RESTAR 


SEQ i2 


SEQ 13 
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0 

sREGISTER DEFINITIONS 

000000 RO=80 sGENERAL REGISTER 

000001 Ri=s1 sGENERAL REGISTER 
R2=82 sGENERAL REGISTER 

000003 R3=83 sGENERAL REGISTER 

000004 R4=84 sGENERAL REGISTER 

000005 R585 sGENERAL REGISTER 

000006 SP =86 sPROCESSOR STACK POINTER 

000007 PC=s87 sPROGRAM COUNTER 
sLOCATION EQUIVALENCIES ; 3 
sSWR*177570 sCONSOLE SWITCH REGISTER ; 4 
SLIGHT $*177570 ;PDP-11/45 DISPLAY REGISTER ; 4 

177776 PS*177776 sPROCESSOR STATUS WORD 

013724 STACK=ENDCOD +200 sSTART OF PROCESSOR STACK ; 3 
sINSTRUCTION DEFINITIONS 

005746 PUSH1SP=5746 sDECREMENT PROCESSOR STACK 1 WORD 

005726 POP1SP=5726 sINCREMENT PROCESSOR STACK 1 WORD 

010046 PUSHRO=10046 

012600 

024646 

022626 

100000 

040000 3 3 

020000 

010000 

004000 

001000 

000400 

000200 

000100 

000040 

000020 

000010 

000004 

000002 

000001 





1 000000 


CZOHI -D0 
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000000 
000200 





sTRAPCATCAER FOR ILLEGAL INTERRUPTS 





sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TC FIND CAUSE 


sUNEXPECTED TRAP TO THIS LOCATION 

sEXAMINE STACK TO FIND CAUSE 

sUNEXPECTED TRAP TO THIS LOCATION 
FIND CAUSE 


FIND CAUSE 

sUNEXPECTED TRAP TO THIS LOCATION 

sEXAMINE STACK TO FIND CAUSE 

sUNEXPECTED TRAP TO THIS LOCATION 
FIND CAUSE 


IND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
s EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
7s EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
7s EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND C 
é TED TRAP TO THIS LOCATION 

FIND C 


FIND 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
s EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 

FINO CAUSE 


FIND CAUSE 
sUNEXPECTED TRAP a” THIS oo 
sEXAMINE STACK TO FIND CAU 

sUNEXPECTED TRAP TO THIS LOCATION 


ROSIE BLIND LENIN SLED LEI LEEDS LD LEE EL A, 





SEQ 14 


_ = 
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000000 
000152 











sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FINO CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTEO TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 


NO 
: UNEXPEC AP TO THIS LOCATION 
s EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
FIND CAUSE 


TR 
sEXAMINE STACK TO FIND C 
TED TRAP T 


TED TRAP TO THIS LOCATION 
s EXAMINE STACK TO FIND CAUSE 
TRAP T of Bg pile 


FI 
sUNEXPEC TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
s EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 


a 
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000332 
000000 


LD TI TL SC LL TSE: ELT TTA LT ee ee A I tt 





sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAU 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 


. #9EXAMINE STACK TO FIND CAUSE 


sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
s EXAMINE th TO FI AUSE 


s EXAMINE STACK TO FI AUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
s EXAMINE gg TO FIND CAUSE 


sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
3; UNEXPEC 


TRAP TQ THIS LOCATION 
AUSE 


FIND CAUSE 

s UNE TED TRAP TO THIS LOCATION 

s EXAMINE STACK TG FIND CAUSE 

sUNEXPECTED TRAP TO THIS LOCATION 
FINO CAUSE 


TO FIND CAUSE 
UNEXPECTED TRAP TO THIS LOCATION 


-— 
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sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTEO TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAU 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAU 
sUNEXPECTED TRAP y THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP 4 THIS LOCATION 
sEXAMINE STACK TO FIND CAU 
sUNEXPECTED TRAP TO THIS LOCATION 
FIND CAUSE 


MI FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FI AUSE 


sEXAMINE STACK TO FI 
XPEC TRAP T 


AUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
FIND CAUSE 


FIND CAUSE 
TED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPEC TRAP TO THIS LOCATION 
; EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
s EXAMINE STACK TO FIND CAUSE 
TED TRAP 


TE 
EXAMINE STACK TO FIND CAUSE 





—— 





0006 76 
000000 


. SETVEC 





I USE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP 7 THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
s EXAMINE hy = TO FIND CAUSE 


SE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
; UNEXPECTED gs my THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
s UNEXPECTED TRAP. TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
sEXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO bepe LOCATION 


TED TRAP TO THIS LOCATION 
; EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
s EXAMINE STACK TO FIND CAUSE 
sUNEXPECTED TRAP TO THIS LOCATION 
; EXAMINE STACK TO FIND CAUSE 


CZOHI-DO 


oo 


rary 


0 


OO@rtOuUS wh 


000200 


PaeEETEEEETE 
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000200 
000167 000600 


- #200 


. TRPDEF 





sSTANDARD INTERRUPT VECTORS 
JMP START sGO TO START OF PROGRAM 


sDEFINITIONS FOR TRAP SUBROUTINE CALLS 
sPOINTERS TO SUBROUTINES CAN BE FOUND STARTING 
sAT LOCATION “TRPTAB” 


SCOPE, */SCOPE LOOP AND ITERATION HANOLER/ 
SCOPE*TRAP + ;SCOPE LOOP AND ITERATION HANDLER 
#Veo 

TYPE, t/TELETYPE OUTPUT ROUTINE/ 

TYPE STRAP SY sTELETYPE OUTPUT ROUTINE 

= ei 

OCTASC,t+/OCTAL TO ASCII CONVERSION/ 


OCTASC=TRAP + sOCTAL TO ASCII CONVERSION 
2V¥e 
INSTR, 4d pd ASCII STRING/ 
INSTR=TRAP + sINPUT ASCII STRING 
sVe 
INSTER,t/STRING INPUT ERROR/ 
a —_—* sSTRING INPUT ERROR 
aYe 
PARAM, ——" STRING TO OCTAL, CHECK LIMITS/ 
PARAM TRAP +¥ sCONVERT STRING TO OCTAL, CHECK LIMITS 
sVe 
SAVOSP ,t/SAVE RO-RS, PC/ 
oe =TRAP+Y sSAVE RO-RS5S, PC 
2Ve 
RESOS, t/RESTORE RO-R5/ 
a sRESTORE RO-RS 
sjy¢ 


SCOPE1 .*/CHECK FOR FREEZE ON CURRENT DATA/ 


— sCHECK FOR FREEZE ON CURRENT DATA 
aT¢ 

CODEM1 

MOV DHSSR, DHSLR sSET UP ADDRESS OF SILO 
INC DHSLR sSTATUS REGISTER HIGH BYTE 


CODEM1 
DHRVEC .3,.4,DHSCR,O,177776,7,10,..1 





SEQ 19 





CZDHI-D0 


-— 
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001000 


177570 
177570 


012767 


0 


176670 


177650 


-*1000 


-IIF NB 
-IIF NB 


SWR: 
LIGHTS: . 


eee 176764 START: 


23: 


-IF NB 


. IFF 


-ENDC 
IF NB 


SIZE: 


i$: 
2$: 


sPROGRAM INITIALIZATION 

sLOCK OUT INTERRUPTS 

sSET UP PROCESSOR STACK 

;SET UP POWER FAIL VECTOR 

;CLEAR PROGRAM FLAGS AND COUNTS 
sTYPE TITLE MESSAGE 

<>, sDETERMINE MEMORY SIZE 
<>, sSET UP TRACE TRAP RETURN 


. WORD 177570 ; SWITCH DHSCR ADDRESS 
WORD 177570 ; LIGHTS 
MOV $340 ,.PS sLOCK OUT INTERRUPTS 
MOV @STACK , SP ;SET UP PROCESSOR STACK 
MOV #24 ,R2 ; POINT TO VECTOR AREA 
MOV OPFAIL .CR2)+ ;SET UP POWER FAIL TRAP 
MOV #340, (R2)+ ;SERVICE AT LEVEL 7 
MOV MERRORS, CR2)+ sERROR HANDLER 
MOV #340, (R2)+ sSERVICE AT LEVEL 7 5 
MOV STRPSRV, CR2)-+ ;GENERAL HANDLER DISPATCH SERVICE 
MOV #340, ( sSERVICE AT LEVEL 7 : 
CLR STFLG :CLEAR TEST START FLAG 
CLR PASCNT ;sCLEAR PASS 
CLR ERRCNT ;CLEAR ERROR COUNT 
CLR ERRFLG ;CLEAR ERROR FLAG 
CLR ERRFLG ;CLEAR LAST ERROR PC 
MOV 4, -(SP) ; PUSH TRAP VECTOR 
MOV 6, -CSP) 
MOV #13, 4 ; SET UP TRAP VECTOR 
TST aSuR ; TEST SWITCH REGISTER ADDRESS 
BR 2s ; IF SUCCESSFUL, LEAVE IT ALONE 
MOV #176. SWR ; POINT TO SOFT SWITCH DHSCR 
CLR LIGHTS ; O MEANS WE ARE NOT GOING TO USE 
TST (SP)>+ ; CLEAN UP STACK 
TST (SP)+ 
MOV (SP)+, 6 
MOV CSP)-, 4 
TYPE »MTITLE sTYPE TITLE MESSAGE 
TST LG ;CHECK INITIALIZATION FLAG 
<DHRVEC> 
BNE VEC sIF NOT 0, CHECK SWITCHES 
sFOR REINITIALIZATION 
BNE BEGIN ;IF NOT 0, START TEST 
<> 
CLR 
MOV 02%, 304 ;SET UP TIME OUT RETURN 
TST CRO)+ ;WILL TRAP WHEN NO MEMORY 
BR i$ . sLOCATION RESPONDED, CONTINUE 
MOV RO ,HCORE sRO CONTAINS ADDRESS OF 
SUB ¢2 ,HCORE sNON EXISTANT MEMORY 
MOV 044 sRESTORE TRAPCATCHER 


& PLS 


ee @: ee Ge Ge Ge @ 
Onna 


2 ae ee eS 
. ts. 





SEQ 20 





CZDHI-D0 


-— 


001162 
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000404 


032777 
001445 


012701 
012702 


005267 


000001 


000300 
000302 
000004 


001000 


010506 
010502 


010550 
010542 


177606 


010506 


.ENDC 
IF NB 
TRACER: MOV #1$,8¢10 
SXT RO 
MOV @RTT, TRTRET 
BR 2$ 
is MOV @RTI, TRTRET 
MOV #12.8010 
MOV @TRTRET , 8016 
-ENDC 
.IF NB <DHRVEC> 
IF B <> 
VEC2 
Oo IFF 
TST INIFLG 
BEQ VEC2 
-ENDC 
VECi: BIT @SWO00, SSWR 
BEGIN 
VEC2: 
MOV #300 .R1 
MOV #302 ,R2e 
MOV 04 ,,R3 
i$: MOV R2,CR1) 
CLR CR2) 
ADD R3 Ri 
ADD »R2 
CMP R1,#1000 
BNE 
INSTR 
MVECTOR 
PARAM 
300 
770 
DHRVEC 
BYTE 3 
BYTE 4 
INSTR 
MREGAD 
. 
177776 
BYTE 7 
-—BYTE 10 
-ENDC 
IF NB <i> 
CODEM1 
MOV DHSSR,DHSLR 
INC od 
-ENOC 
TST INIFLG 
SNE BEGIN 
COM INIFLG 
sPROGRAM START 


R 
sCHECK FOR PROGRAM START AT SELECTED ADDRESS 








SEQ 21 


;SET UP ILLEGAL INSTRUCTION TRAP RETURN 
sD0 11/40, 11/45 INSTRUCTION 
311/40,45 RTT RETURN FROM TRACE TRAP 


31105,10,20 RTI RETURN FROM TRACE TRAP 
sRESTROE TRAPCATCHER 
sSET UP TRACE TRAP VECTOR 


sIF INITIALIZE FLAG=0 
sGET VECTOR AND CSR ADDRESS 


;IF SWOO=1, GET NEW VECTOR ; 
s;AND CSR 


sRESTORE TRAPCATCHER 
sIN FLOATING VECTOR AREA 


sINPUT ADDRESS OF DEVICE VECTOR 
sMESSAGE “VECTOR ADDRESS-” 
sCONVERT STRING TO OCTAL 

sLOW LIMIT 


sHIGH LIMIT 

sLOCATIONS TO BE FILLED 
sNUMBER OF LOCATIONS 

;LSB MASK 

sINPUT ADDRESS OF DEVICE CSR 
sMESSAGE “CONTROL REGISTER ADDRESS-” 
; CONVERT STRING TO OCTAL 

sLOW LIMIT 


sHIGH LIMIT 

sLGCATIONS TO BE FILLED 
sNUMBER OF LOCATIONS 
3LSB MASK 


i. 


sSET UP ADDRESS OF SILO 

sSTATUS REGISTER HIGH BYTE 

sIF INITIALIZATION FLAG 
ARED 


:IS CLE 
; 








001306 012767 000340 
001314 012706 013724 
001320 032777 000002 


001330 1 3 
001332 013243 
001334 1 
001336 

1340 017500 
001342 012016 
001344 1 
001345 

1346 


00 000410 
001350 012767 001400 
001356 005767 010470 


1 
001364 005167 010462 
001370 104401 013237 
001374 000177 010416 


- 


176462 BEGIN: 


177452 


-BYTE 
-BYTE 


010440 i$: 


2s: 
3$: 
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MOV #340 ,PS 
MOV @STACK ,SP 
BIT #SWO1, OSWR 
BE i$ 








SEQ 22 


;LOCK OUT INTERRUPTS 

;SET UP PROCESSOR STACK 

SIF SWOL=i ; 4 
sGET PC FOR PROGRAM START 

; ™ 

sMESSAGE “TEST PC” 

;CONVERT STRING TO OCTAL 


sNORMAL START, TEST 1 
;IF LOOPING, BYPASS TYPEOUT 


sTYPE "R” TO INDICATE START 
sSTART TESTING 





i 
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-MACRO BREAK1 


XLINE , XBIT ,K 


TE LE A eS ~Anna~ hy eee 


SEQ 23 


sFLUSH ——a-«_- 2 NULL CHARACTERS 


;ON LINE ‘ 
;SET BREAK BIT FOR LINE ‘XLINE’ 


s TRANSMIT BINARY COUNT PATTERN ON LINE ‘ XLINE’ 
sVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED 


sAND THAT IT IS A BREAK 


TS \XN,20,4% 
MOV 
JSR 


i$: CMPB 


2s: TST 
BNE 


3$: MOV 


#81IT11,8DHSCR 
PC, CLRALL 


on ge gal 


$-2, @DHBC 
#33503 , BDHLPR 


pe A lee 


#2 ,8D0HSL 
1$ 





sMASTER CLEAR INTERFACE 

sCLEAR ALL BUS ADDRESS AND 

sBUS ADDRESS MEMORY LOCATIONS 
sSELECT LINE XLINE 

;sSET UPT TO TRANSMIT © CHARACTER 
sTWO OS WILL BE TRANSMITTED 


sSET BAR BIT FOR LINE XLINE 
sWAIT FOR 2 CHARACTERS TO BE RECEIVED 


sMASTER CLEAR INTERFACE 

sSELECT LINE XLINE 

sSET UP TO TRANSMIT 400 

sCOCTAL) CHARACTERS 

sLINE SPEED = 9600 BAUD 

sSET BREAK BIT FOR LINE XLINE 

sSET BAR BIT FOR LINE XLINE 
CHARACTERS 


sCHECK TO SEE THAT ONLY 
31 CHARACTER WAS RECEIVED 
sCR4)*ACTUAL RECEIVED DATA 


: UNWANTED BITS 
:CRS)=EXPECTED SILO FILL LEVEL, 1 
sMORE THAN ONE CHARACTER RECEIVED, ERROR 
;READ NEXT RECEIVED CHARACTER REGISTER 
sIS RECEIVED CHARACTER A BREAK 
3(RS5)=EXPECTED RECEIVED CHARACTER 


sRECEIVED DATA ERROR 
CHECK FOR ITERATIONS, LOOP 














SEQ 24 
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, -MACRO BLIND1,XLINE ,XBIT,K 
3 sSET HALF DUPLEX ON LINE '‘K' 
4 s;TRANSMITI A BINARY COUNT PATTERN 
: sVERIFY THAT NO CHARACTERS ARE RECEIVED 
7 TS \XN,20,2$ 
8 MOV @61IT11,@0HSCR sMASTER CLEAR INTERFACE 
G JSR PC ,CLRALL sCLEAR ALL BYTE COUNT AND 
10 sAND BUS ADDRESS MEMORY LOCATIONS 
11 MOV @XLINE , BDHSCR sSELECT LINE XLINE 
12 MOV @TBUF , SOHBA ;SET UP TO T T 
13 MOV #-400, BDHBC 3400 COCTAL) CHARACTERS 
14 MOV #73503 , @DHLPR sSET RECEIVER BLIND 
15 sLINE SPEED =9600 BAUD 
16 sCHARACTER LENGTH = 8 BITS 
17 MOV @XBIT, BOHBAR sSET BAR BIT FOR LINE XLINE 
~ i$: pil — sWAIT FOR ALL CHARACTERS TO BE TRANSMITTED 
20 TSTB SOHSCR sWERE ANY CHARACTERS RECEIVED 
21 BPL 2$ 


22 HLT 2 sRECEIVER NOT BLINDED, ERROR 
23 23: SCOPE sCHECK FOR ITERATIONS, LOOP 
24 ENDM BLIND1 





CZDHI-D0 


WOtIMUVSUwyre 
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- MACRO 


SETALL: 


1%: 


18: 


SSETALL 


sSET BYTE COUNT FOR ALL LINES TO 400 
sSET BUS ADDRESS FOR ALL LINES TO TBUF 
sCLEAR EXPECTED CHARACTER BUFFERS 

sSET LINE ACTIVE BITS FOR ALL LINES 


MOV #20,R0 sSET UP 1O LOAD 20 MEMORY LOCATIONSA 
CLR sSTART WITH LINE 0 


MOV #1,R3 
MOV @TBUF , GOHBA 
MOV -400, 
MOV 31403 , BDHLPR 
CLRB RBUF CR1) 
MOVE R2 .RBUF CRS) 
INC CR 
INC R2 
ADO #2,R1 
ADO @2,.R3 
DEC 
BNE 
MOV #-1,LINACT 
RTS 
SSETALL 
CCLRALL 
sCLEAR ALL BYTE COUNT AND BUS ADDRESS REGISTERS 
MOV #20,RO0 
SOHBA 








001400 


SEQ 26 
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012767 
012767 000020 
012767 001630 





REPT 20 
BREAKi \LINE,\BITX, \KX 
»~NLIST 


LINE =LINE+1 
BITX=BITX+BITX 
KX*KXe1 

LIST 


-ENOR 
BREAK1 \LINE,\BITX, \KX 


sFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS 
sON LINE 0 

sSET BREAK BIT FOR LINE 0 

s TRANSMIT BINARY COUNT PATTERN ON LINE 0 
{VERIFY HTAT ONLY 1 CHARACTER IS RECEIVED 
sAND THAT IT IS A BREAK 















TS \XN,20,4% 
Ti: MOV 0340 PS sDISABLE ALL INTERRUPTS 
MOV #20, ICOUNT sSET UP FOR 20 ITERATIONS 
— MOV 04%, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
= <> 
MOV @,FREEZ1 3SET UP TO LOOP WITH DATA 3 3 
XN*XNeo1 
MOV sMASTER CLEAR INTERFACE 
JSR sCLEAR ALL BUS ADDRESS AND 
;8US ADDRESS MEMORY LOCATIONS 
MOV LINE 0 
MOV 
MOV 
MOV 
MOV Me 
tg sWAIT FOR 2 CHARACTERS TO BE RECEIVED 
MOV sMASTER CLEAR INTERFACE 
MOV 8 LINE 0 
MOV 
MOV 
MOV 
MOV 
MOV 
TST 
BNE 
CrPe 
BEG 8 VED 
MOV sCR4)°ACTUAL RECEIVED DATA 
BIC sCLEAR eITs 
MOY s(RS EXPECTED SILO FILL LEVEL, 1 
HLT sMORE THAN ONE CHARACTER RECEIVED, ERROR 











SEQ 27 
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001606 104000 EMT 0 
001610 017704 010144 3$: MOV SOHNRC ,R4 sREAD NEXT RECEIVED CHARACTER REGISTER 
001614 026704 010734 CMP RWRDO, R4 sIS RECEIVED CHARACTER A BREAK 
001620 001403 BEQ as 
001622 016705 010726 MOV RWROO, RS s(RS)=EXPECTED RECEIVED CHARACTER 
001626 HLT i sRECEIVED DATA ERROR 
001626 104001 EMT 1 
001630 104400 4$: SCOPE sCHECK FOR ITERATIONS, LOOP 
000001 LINE =LINE+1 
000002 BITX*BITX+BITX 
000001 KX*KXe1 
001632 BREAK1 \LINE,\BITX, \KX 


ee dl BY TRANSMITTING 2 NULL CHARACTERS 
; 

sSET BREAK BIT FOR LINE 1 

s TRANSMIT BINARY COUNT PATTERN ON LINE 1 
sVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED 
sAND THAT IT IS A BREAK 





001632 TS \XN,20,4$ 
001632 012767 000340 176136 Te: MOV #340 .PS sDISABLE ALL INTERRUPTS 
001640 012767 9000020 010156 MOV 20, ICOUNT ;SET UP FOR 20 ITERATIONS 
0C1646 012767 002062 010144 — MOV 043 , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
: <> 
aati MOV @,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
000003 XN=XNel 

001654 012777 9004000 010074 MOV @6IT11.8DHSCR sMASTER CLEAR INTERFACE 
001662 004767 010176 JSR PC .CLRALL ;CLEAR ALL BUS ADDRESS AND 

;B8US ADDRESS MEMORY LOCATIONS 
001666 012777 9000001 010062 MOV ;SELECT LINE i 
001674 012777 012060 010062 MOV sSET UPT TO TRANSMIT 0 CHARACTER 
001702 012777 177776 010056 MOV ;TWO OS WILL BE TRANSMIT 
001710 012777 033503 010044 MOV sSET LINE SPEED=9600 BAUD 

;CHARACTER LENGTH =8 BITS 
001716 012777 000002 010044 MOV ;SET BAR BIT FOR LINE 1 
001724 122777 0900002 010044 i158: sWAIT FOR 2 CHARACTERS TO BE RECEIVED 
001732 001374 BNE 
001734 012777 004000 010014 MOV sMASTER CLEAR INTERFACE 
001742 777 000001 010006 MOV sSELECT LINE 1 
001750 012777 O12112 010006 MOV sSET UP TO TRANSMIT 400 
001756 012777 177400 010002 MOV sCOCTAL) CHARACTERS 
001764 012777 033503 007770 MOV sLINE SPEED = 9600 
001772 012777 0900002 007772 MOV ;SET BREAK BIT FOR LINE i 
002000 012777 000002 007762 MOV ;SET BAR BIT FOR LINE 1 
002006 005777 007756 23: TST sWAIT FOR ALL CHARACTERS 
002012 BNE :T0 BE TRANSMITT 
002014 122777 000001 007754 CMPB tee? TO SEE THAT ONLY 
002022 001407 BEQ $ CHARACTER WAS RECEIVED 
002024 017704 007744 MOV SOHSSR ,R4 ;CR4@ACTUAL RECEIVED DATA 
902030 042704 000300 BIC #300 .R4 ;sCLEAR UNWANTED BITS 
002034 012705 000400 MOV #400 ,R5 :CRS “EXPECTED SILO FILL LEVEL, 1 
002040 HLT 0 ;MORE THAN ONE CHARACTER RECEIVED, ERROR 
002040 104000 EMT 0 
002042 017704 007712 3%; MOV SDHNRC ,R4 ;READ NEXT RECEIVED CHARACTER REGISTER 


002046 026704 010504 CMP RWRO1,R4 :IS RECEIVED CHARACTER A BREAK 





-— 





001403 
016705 


104001 
104400 
000002 


000004 
000002 


012767 
012767 
012767 


010476 


000340 
000020 
002314 








FO A ST a TTS NE TN TSE EET LO SR 





SEG 22 
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BEQ 4$ 
MOV RWRO1, RS ;(RS)*EXPECTED RECEIVED CHARACTER 
td : sRECEIVED DATA ERROR 
4$: SCOPE sCHECK FOR ITERATIONS, LOOP 
LINE =LINE +1 
BITX=BITX+BITX 
KX *KXel 
BREAK1 \LINE,\BITX, \KX 
sFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS 
;0N LINE 2 
:SET BREAK BIT FOR LINE 2 
s TRANSMIT BINARY COUNT PATTERN ON LINE 2 
;VERIFY HTAT ONLY 1 CHARACTER IS RECEIVED 
:AND THAT IT IS A BREAK 
TS \XN,20,4$ 
175704 T3: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
007724 MOV #20, ICOUNT ;SET UP FOR 20 ITERATIONS 
007712 ~— MOV 04% , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
¥ <> 
MOV @,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XNel 
007642 MOV 61T11.,8DHSCR sMASTER CLEAR INTERFACE 
JSR PC .CLRALL ;CLEAR BUS ADDRESS AND 
;BUS ADDRESS MEMORY LOCATIONS 
007630 MOV sSELECT LINE 2 
007630 MOV ;SET UPT TO TRANSMIT ©O CHARACTER 
007624 MOV sTWO OS WILL BE TRANSMITTED 
007612 MOV sSET LINE SPEED=9600 BAUD 
sCHARACTER LENGTH =8 BITS 
007612 MOV ;SET BAR BIT FOR LINE 2 
007612 1%: oo sWAIT FOR 2 CHARACTERS TO BE RECEIVED 
MOV sMASTER CLEAR INTERFACE 
007554 MOV sSELECT LINE 2 
007554 MOV ;SET UP TO TRANSMIT 400 
007550 MOV :COCTAL) CHARACTERS 
007536 MOV ;LINE SPEED = 9600 BAUD 
007540 MOV sSET BREAK BIT FOR LINE 2 
007530 MOV ;SET BAR BIT FOR LINE 2 
2s: TST sWAIT FOR ALL ACTERS 
BNE :10 BE T 
007522 sCHECK TO SEE THAT ONLY 
BEQ 31 CHARACTER WAS RECEI 
MOV ;CR4)=ACTUAL RECEIVED DATA 
BIC #300 ,R4 ;CLEAR UNWANTED BITS 
MOV #400 ,R5 ;(RS)=EXPECTED SILO FILL LEVEL, 1 
jt : sMORE THAN ONE CHARACTER RECEIVED, ERROR 
3$: MOV SOHNRC .R4 ;READ NEXT RECEIVED CHARACTER REGISTER 
od oe :IS RECEIVED CHARACTER A BREAK 
MOV RWRD2 , RS :(RS)=EXPECTED RECEIVED CHARACTER 
HLT 1 sRECEIVED DATA ERROR 














SE 
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104001 EMT 1 
194400 43: SCCPE ;CHECK FOR ITERATIONS, LOOP 
000003 LINE =LINE+1 
000010 BITX=BITX+B.1. 
000003 KX*KXel 
BREAK1 \LINE,\BITX, \KX 
sFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS 
s;ON LINE 3 


;SET BREAK BIT FOR LINE 3 

sTRANSHIT BINARY COUNT PATTERN ON LINE 3 
sVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED 
sAND THAT IT IS A BREAK 


TS \XN,20,4$8 
T4: 





012767 000340 175452 MOV @340 PS sDISABLE ALL INTERRUPTS 
012767 000020 007472 MOV €20, ICOUNT sSET UP FOR 20 ITERATIONS 
012767 002546 007460 on MOV 043% , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
‘ <> 
— MOV @,FREEZ1 sSET UP TO LOOP WITH DATA 3; 3 
000005 XN=*XNe1 
012777 007410 MOV #81711 ,380HSCR sMASTER CLEAR INTERFACE 
004767 007512 JSR »CLRALL sCLEAR ALL BUS ADDRESS AND 
sBUS ADDRESS MEMORY LOCATIONS 
012777 000003 007376 MOV sSELECT LINE 3 
012777 012060 007376 MOV sSET UPT TO TRANSMIT O CHARACTER 
012777 177776 007372 MOV sTWO OS WILL GE TRANSMITTED 
012777 033503 007360 MOV sSET LINE SPEED=9600 BAUD 
sCHARACTER LENGTH =8 BITS 
012777 000010 007360 MOV sSET BAR BIT FOR LINE 3 
ies 000002 007560 i$: tig sWAIT FOR 2 CHARACTERS TO BE RECEIYED 
012777 004000 007330 MOV sMASTER CLEAR INTERFACE 
012777 000003 007322 MOV sSELECT LINE 3 
012777 O12112 007322 MOV sSET UP TO TRANSMIT 400 
012777 177400 007316 MOV sCOCTAL) CHARACT ERS 
012777 033503 7304 MOV sL = 9600 B 
012777 000010 007306 MOV SET BREAK BIT FOR LINE 3 
012777 000010 007276 MOV :SET BAR BIT FOR LINE 3 
77 007272 2s: TST sWAIT FOR ALL CHARACTERS 

001375 BNE ;TO BE TRANSMITTED 
122777 000001 007270 +g TO SEE THAT ONLY 
001407 BEQ 1 CHARACTER WAS RECEIVED 
017704 007260 MOV :(R4)=ACTUAL RECEIVED DATA 
042704 000300 BIC ;CLEAR UNWANTED BITS 
912705 000400 MOV #400, CRS EXPECTED SILO FILL LEVEL, 1 

HLT 0 sMORE THAN ONE CHARACTER RECEIVED. ERROR 
104000 EMT 0 
017704 007226 3$: MOV S@DHNRC .R4 sREAD NEXT RECEIVED CHARACTER REGISTER 
026704 010024 CMP RWROS ,R4 :IS RECEIVED CHARACTER A BREAK 
001403 BEQ &y 
016705 010016 MOV RWRDS RS sCRS)*EXPECTED RECEIVED CHARACTER 

HLT 1 sRECEIVED DATA ERROR 
104001 EMT 
104400 4$: SCOPE s;CHECK FOR ITERATIONS, LOOP 
000004 LINE =LINE+1 











CZ0HI -00 


— 


002550 
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BITX=BITX+BITX 
KX=#KXe1 
BREAK1 \LINE,\BITX, \KX 


00002u 
000004 


LE LT LS LL CS ES EIS ETL EES LG CIS EE A PT IT CIT TTT A te AN 





sFLUSH rt BY TRANSMITTING 2 NULL CHARACTERS 


s;ON LINE 
sSET BREAK BIT FOR LINE 4 


s TRANSMIT BINARY COUNT PATTERN ON LINE 4 
sVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED 


:AND THAT IT IS A BREAK 
TS \XN,20,4$ 
TS: MOV 





012767 000340 175220 #340 ,PS 
012767 000029 007240 MOV #20, ICOUNT 
012767 003000 007226 MOV 04$ , ESCAPE 
.IF NB <> 
MOV @,FREEZ1 
-ENDC 
000006 XN=XNe1 
012777 004000 007156 MOV €81T11.8DHSCR 
006767 007260 PC ,CLRALL 
012777 OC0004 007144 MOV 
O12777 012060 007144 MOV 
012777 177776 007140 MOV 
012777 033503 007126 MOV 
012777 9000020 0907126 MOV 
122777 000002 007126 i$: 
001374 BNE 
012777 004000 007076 MOV 
012777 000004 007070 MOV 
012777 O12112 007070 MOV 
012777 177400 MOV 
012777 033503 007052 MOV 
012777 000020 007054 
012777 000020 007044 MOV 
0057 007040 23: TST 
001375 BNE 
122777 000001 007036 CMPB 
001407 BEQ 
017704 007026 MOV 
042704 000300 BIC 
012705 000400 at 3 
104000 EMT 0 
017704 006774 33: MOV SOHNAT ,R4 
026704 0C7574 CMP RWRD4 , R4 
001403 BEQ 4s 
016705 007566 MOV RS 
HLT 1 
104001 EMT 
104400 | 4$: SCOPE 
000005 LINE =LINE+1 
000040 BITX=BITX+SITX 
000005 KX =KX 


+ 
BREAK1 \LINE,\BITX, \KX 





SEQ 30 
sDISABLE ALL INTERRUPTS 
;SET UP FOR 20 ITERATIONS 
;SET UP TO ESCAPE TO NEXT TEST 
;SET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 

sCLEAR ALL BUS ADDRESS AND 

sBUS ADDRESS MEMORY LOCATIONS 

sSELECT LINE 4 

sSET UPT TO TRANSMIT O CHARACTER 

sTWO OS WiLL BE TRANSMITTED 

sSET LINE SPEED=9600 BAUD 

sCHARACTER LENGIK =8 BITS 

sSET BAR BIT FOR LINE 4 

sWAIT FOR 2 CHARACTERS TO BE RECEIVED 


sMASTER CLEAR INTERFACE 
sSELECT LINE 4 

sSET UP TO TRANSMIT 400 
sCOCTAL) CHARACTERS 

sLINE SPEED = 9600 BAUD 
;SET BREAK BIT FOR LINE 4 


:;CLEAR UNWAN 
sCRS)=EXPECTED SILO FILL LEVEL. 1 
sMORE THAN ONE CHARACTER RECEIVED, ERROR 


sREAD NEXT RECEIVED CHARACTER REGISTER 
:IS RECEIVED CHARACTER A BREAK 


sCRS)=EXPECTED RECEIVED CHARACTER 
sRECEIVED DATA ERROR 


sCHECK FOR ITERATIONS, LOOP 








wee 











SEQ 31 





sFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS 
ON LINE 6 





CZOHI-DO MACRO VO4.00 27-JUN-85 13:08:01 PAGE 20-5 
sFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS 
sON LINE 5 
sSET BREAK BIT FOR LINE 5 
s TRANSMIT BINARY COUNT PATTERN ON LINE 5 
sVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED 
sAND THAT IT IS A BREAK 
003002 TS \XN,20,48 
003002 012767 000340 174766 Té6: MOV #340 ,PS sDISABLE ALL INTERRUPTS 
003010 012767 20 007006 MOV #20, ICOUNT sSET UP FOR 20 ITERATIONS 
003016 012767 003232 096774 * MOV 043, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
‘ <> 
on MOV @,FREEZ1 sSET UP TO LOOP WITH DATA ; 3 
000007 XN*XNe1 
003024 012777 006724 MOV @61IT11,@DHSCR sMASTER CLEAR INTERFACE 
003032 004767 007026 JSR PC ,CLRALL sCLEAR ALL BUS ADDRESS AND 
sBUS ADDRESS MEMORY LOCATIONS 
003036 012777 000005 006712 MOV sSELECT LINE 5 
003044 012777 012060 006712 MOV sSET UPT TO TRANSMIT O CHARACTER 
003052 012777 177776 006706 MOV ;TWO OS WILL BE TRANSMITTED 
003060 012777 3503 006674 MOV sSET LINE SPEED=9600 BAUD 
sCHARACTER LENGTH =8 BITS 
003066 012777 000040 006674 MOV ;SET BAR BIT FOR LINE 5 
003074 122777 000002 006674 1%: CMPB sWAIT FOR 2 CHARACTERS TO BE RECEIVED 
003102 001374 BNE 
003104 012777 004000 006644 MOV sMASTER CLEAR INTERFACE 
603112 012777 000005 006636 MOV sSELECT LINE 5 
003120 012777 O12112 006636 MOV sSET UP TO TRANSMIT 400 
003126 012777 177400 006632 MOV :COCTAL) ERS 
003134 012777 033503 MOV 3 = 
003142 012777 000040 006622 MOV sSET BREAK BIT FOR LINE 5 
003150 012777 000040 006612 MOV sSET BAR BIT FOR LINE 5 
003156 0057 006606 2%: TST sWAIT FOR ALL CHARACTERS 
003162 001375 BNE 310 BE TRANSMITTED 
003164 122777 000001 006604 CMPB sCHECK TC SEE THAT ONLY 
0031 001407 BEQ si CHARACTER WAS RECEIVED 
003174 017704 006574 MOV sCR4)*ACTUAL RECEIVED DATA 
003200 042704 000300 BIC sCLEAR UNWANTED BITS 
003204 012705 000400 MOV sCRSJ*EXPECTED SILO FILL LEVEL. 1 
003210 HLT 0 sMORE THAN ONE CHARACTER RECEIVED, ERROR 
003210 104000 EMT 0 
003212 017704 006542 3%: MOV SOHNRC ,R4 sREAD NEXT RECEIVED CHARACTER REGISTER 
003216 026704 007344 CMP RWROS , R4 sIS RECEIVED CHARACTER A BREAK 
3222 001403 BEQ 4$ 
003224 016705 007336 MOV oRS :(RS)=EXPECTED RECEIVED CHARACTER 
003230 HLT 1 sRECEIVED DATA ERROR 
003230 104001 EMT 1 
003232 104400 43: sCHECK FOR ITERATIONS. LOOP 
000006 LINE =LINE+1 
000100 BITX=BITX+BITX 
000006 KX=*KX+1 
003234 BREAKi \LINE,\BITX, \KX 





CZDHI-DO 


-— 
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012767 
012767 
012767 


000010 
012777 
004767 


012777 
012777 


TS \XN,20,4$% 
T?: 


sSET BREAK BIT FOR LINE 6 

s TRANSMIT BINARY COUNT PATTERN ON LINE 6 
;VERIFY HTAT ONLY 1 CHARACTER IS RECEIVED 
s;AND THAT IT IS A BREAK 





SEQ 32 


MOV 0340 ,PS sDISABLE ALL INTERRUPTS 
MOV #20, ICOUNT ;SET UP FOR 20 ITERATIONS 
— MOV 04$, ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
: <> 
MOV @,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=XNel 
MOV #81IT11.,8DHSCR sMASTER CLEAR INTERFACE 
JSR PC ,CLRALL ;CLEAR ALL BUS ADDRESS AND 
;BUS ADDRESS MEMORY LOCATIONS 
MOV #6 .8DHSCR sSELECT LINE 6 
MOV L,@DHBA ;SET UPT TO TRANSMIT O CHARACTER 
MOV @-2,8DHBC ;TWO OS WILL BE TRANSMITTED 
MOV #33503 , BDHLPR ;SET LINE SPEED=9600 BAUD 
sCHARACTER LENGTH =8 BITS 
MOV $100 , SDHBAR ;SET BAR BIT FOR LINE 6 
L$: oy —_— sWAIT FOR 2 CHARACTERS TO BE RECEIVED 
MOV #6IT11,@DHSCR sMASTER CLEAR INTERFACE 
MOV . R sSELECT LINE 6 
MOV @TBUF , SOHBA sSET UP TO TRANSMIT 400 
MOV e- . SOHBC ;COCTAL) ERS 
MOV #33503 . BDHLPR sLINE SPEED = 9600 
MOV #100 . GDHBCR ;SET BREAK BIT FOR LINE 6 
MOV #100 , BOHBAR ;SET BAR BIT FOR LINE 6 
2s: TST AR sWAIT FOR ALL CHARACTERS 
BNE $ 3T0 BE TRANSMITTED 
CMPB #1 ,,8DHSLR ;CHECK TO SEE THAT ONLY 
BEQ 3$ 31 CHARACTER WAS RECEIVED 
MOV SDHSSR .R4 :(R4)=ACTUAL RECEIVED DATA 
BIC #300 .R sCLEAR UNWANTED BITS 
#400 .RS ;(RS)-EXPECTED SILO FILL LEVEL. 1 
wa ; sMORE THAN ONE CHARACTER RECEIVED. ERROR 
3%: MOV GDHNRC .R4 sREAD NEXT RECEIVED CHARACTER REGISTER 
Fo reed 31S RECEIVED CHARACTER A BREAK 
MOV . - ;(R5)=EXPECTED RECEIVED CHARACTER 
nh : sRECEIVED DATA ERROR 
4$: SCOPE ;CHECK FOR ITERATIONS, LOOP 
LINE =LINE +1 
BITX=BITX+BITX 
KX*KXo1 
BREAK1 \LINE,\BITX, \KX 





sFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS 
ON LINE 7 


; 

sSET BREAK BIT FOR LINE 7 

s TRANSMIT BINARY COUNT PATTERN ON LINE 7 
sVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED 











SEQ 33 
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sAND THAT IT IS A BREAK 
003466 TS \XN,20,4$8 
3466 012767 000340 174302 T10: MOV $340 ,PS ;DISABLE ALL INTERRUPTS 
003474 012767 000020 006322 MOV $20, ICOUNT ;SET UP FOR 20 ITERATIONS 
003502 012767 003716 006310 — MOV 04% ,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
‘ <> 
MOV #,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
-ENDC 
XN=*XNel 
003510 012777 004000 006240 MOV #61IT11,8DHSCR sMASTER CLEAR INTERFACE 
003516 004767 006342 JSR PC ,CLRALL ;CLEAR ALL BUS ADDRESS AND 
;BUS ADDRESS MEMORY LOCATIONS 
003522 012777 000007 006226 MOV @7 ,Q@DHSCR sSELECT LINE 7 
003530 012777 012060 006226 MOV @NULL , SDHBA ;SET UPT TO TRANSMIT 0 CHARACTER 
003536 012777 177776 006222 MOV @-2, OHBC ;TWO OS WILL BE TRANSMITTED 
003544 012777 033503 006210 MOV #33503 , BDHLPR ;SET LINE SPEED=9600 BAUD 
sCHARACTER LENGTH =8 BITS 
003552 012777 000200 006210 MOV #200 , @DHBAR ;SET BAR BIT FOR LINE 7 
003560 122777 000002 006210 i$: CMPB » @DHSLR sWAIT FOR 2 CHARACTERS TO BE RECEIVED 
003566 001374 BNE 
003570 012777 904000 006160 MOV #6IT11,8D0HSCR sMASTER CLEAR INTERFACE 
003576 012777 000007 006152 MOV #7, sSELECT LINE 7 
012777 012112 006152 MOV @TBUF , SDHBA ;SET UP TO TRANSMIT 400 
003612 012777 177400 006146 MOV #-400, SDHBC :COCTAL) CHARACTERS 
003620 012777 033503 006134 MOV o3 »8DHLPR sLINE = 9600 B 
3626 012777 000200 006136 MOV #200 , BDHBCR ;SET BREAK BIT FOR LINE 7 
003634 012777 006126 MOV #200 , BOHBAR sSET BAR BIT FOR LINE 7 
005777 006122 23: TST BOHGAR ;WAIT FOR ALL CHARACTERS 
003646 001375 BNE 2$ 3T0 BE TRANSMITTED 
003650 122777 000001 006120 CMPB 61,8DHSLR ;CHECK TO SEE THAT ONLY 
003656 001407 BEQ 3$ 3 ER WAS RECEIVED 
003660 017704 006110 MOV GOHSSR .R4 :CR4)=ACTUAL RECEIVED DATA 
3664 042704 000 BIC #300 ,R4 ;CLEAR UNWANTED BITS 
003670 012705 000400 MOV #400 ,R5 3CRS)=EXPECTED SILO FILL LEVEL. 1 
po . ae : sMORE THAN ONE CHARACTER RECEIVED, ERROR 
003676 017704 006056 3%: MOV GDHNRC ,R4 sREAD NEXT RECEIVED CHARACTER REGISTER 
003702 026704 006664 CMP RWRD7, 31S RECEIVED CHARACTER A BREAK 
003706 001403 BEQ &h 
003710 016705 006656 MOV RWRD7 RS ;CRS)*EXPECTED RECEIVED CHARACTER 
003714 HLT i sRECEIVED DATA ERROR 
003714 104001 EMT i 
003716 104400 Gt: SCOPE sCHECK FOR ITERATIONS, LOOP 
000010 LINE =LINE+1 
000400 BITX=BITX+BITX 
000010 KX=*KXol 
003720 BREAKi \LINE, \BITX, \KX 
sFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS 
3ON LINE 10 
;SET BREAK BIT FOR LINE 10 
; TRANSMIT BINARY COUNT PATTERN ON LINE 10 
sVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED 
;AND THAT IT IS A BREAK 
003720 TS \XN,20,4$ 





—— 
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012767 
012767 
012767 


022767 
O1'707 
012767 
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SEQ 34 
sDISABLE ALL INTERRUPTS 
sSET UP FOR 20 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 
sSET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 

;CLEAR ALL BUS ADDRESS AND 

sBUS ADDRESS MEMORY LOCATIONS 

sSELECT LINE 10 

sSET UPT TO TRANSMIT 0 CHARACTER 

sTWO OS WILL BE TRANSMITTED 

sSET LINE SPEED=9600 BAUD 

sCHARACTER LENGTH =8 BITS 

s;SET BAR BIT FOR LINE 10 

sWAIT FOR 2 CHARACTERS TO BE RECEIVED 


sMASTER CLEAR INTERFACE 
sSELECT LINE 10 

sSET UP TO TRANSMIT 400 
sCOCTAL) CHARACTERS 

;sLINE SPEED = 9600 BAUD 
‘SET BREAK BIT FOR LINE 10 
sSET BAR BIT FOR LINE 10 
sWAIT FOR ALL CHARACTERS 
sT0 BE TRANSMITTED 

sCHECK TO SEE THAT ONLY 
31 CHARACTER WAS RE._IVED 


sCLEAR 
CRS )=EXPECTED SILO FILL LEVEL, i 
;MORE THAN ONE CHARACTER RECEIVED, ERROR 


sREAD NEXT RECEIVED CHARACTER REGISTER 
sIS RECEIVED CHARACTER A BREAK 


sCRS)*EXPECTED RECEIVED CHARACTER 
sRECEIVED DATA ERROR 


sCHECK FOR ITERATIONS, LOOP 


sFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS 
LINE 11 


COUNT PATTERN ON LINE 11 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 20 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


000340 174050 Til: MOV #340 ,PS 
000020 006070 MOV #20, ICOUNT 
004150 006056 MOV 64% ,ESCAPE 
-IF NB <> 
MOV @,FREEZ1 
.ENDC 
XN*XNel 
004000 006006 MOV #681T11,@DHSCR 
006110 JSR PC ,CLRALL 
000010 005774 MOV #10, 80HSCR 
012060 005774 MOV @NULL , BDHBA 
177776 005770 MOV #-2,8DHBC 
033503 005756 MOV #33503, SDHLPR 
000400 005756 MOV #400 , BOHBAR 
000002 005756 i$: +e —— 
005726 MOV #81IT11,8DHSCR 
000010 005720 MOV #10, @DHSCR 
012112 005720 MOV @TBUF , BDHBA 
177400 005714 MOV #-400, SDHBC 
033503 005702 MOV #33503 , BDHLPR 
000400 005704 MOV #400 , BDHBCR 
0004 005674 MOV #400, 
005670 23: TST 
BNE $ 
000001 005666 Al #1 .8DHSLR 
005656 MOV SOHSSR .R4 
000300 BIC #300 ,R4 
000400 MOV #400 ..R5 
HLT 0 
EMT 0 
005624 3$: MOV GDHNAC .R4 
CMP RWRD10 .R4 
BEQ 4&4 
006426 MOV RWRO1O .RS 
LT 1 
EMT 
4%: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 
KX*KX+1 
BREAKL \LINE, \BITX, \KX 
3ON 
;SET BREAK BIT FOR LINE ii 
: TRANSMIT BINARY 
;VERIFY HTAT ONLY 1 CHARACTER IS RECEIVED 
sAND THAT IT IS A BREAK 
TS \XN,20,4$ 
£70340 173616 Tié: MOV #340 ,PS 
000020 005636 MOV #20, ICOUNT 
004402 005624 MOV 04% ,ESCAPE 








000013 
012777 
004767 


012777 


012767 
012767 
012767 


LEE LLL ALLE LEE LED E LL ELEDLO LE EL ILE DDI ELEC AE LE 


o> 





SEQ 35 
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-IF NB <> 
MOV @,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
.ENDC 
XN=XNe1 
004000 005554 MOV #B8IT11,8DHSCR sMASTER CLEAR INTERFACE 
005656 JSR PC ,,CLRALL ;CLEAR ALL BUS ADDRESS AND 
;BUS ADDRESS MEMORY LOCATIONS 
000011 00554 MOV #11,@DHSCR sSELECT LINE 11 
012060 005542 MOV @NULL , BOHBA ;SET UPT TO TRANSMIT O CHARACTER 
177776 005536 MOV @-2, @DHBC ;TWO OS WILL BE TRANSMITTED 
033503 005524 MOV #33503, @DHLPR ;SET LINE SPEED=9600 BAUD 
sCHARACTER LENGTH =8 BITS 
001000 005524 MOV #1000, @OHBAR ;SET BAR BIT FOR LINE 11 
000002 005524 13%: a tae ;WAIT FOR 2 CHARACTERS TO BE RECEIVED 
005474 MOV #8IT11.,8DHSCR sMASTER CLEAR INTERFACE 
5466 MOV #11, 80HSCR :SELECT LINE 11 
012112 005466 MOV @TBUF , SOHBA ;SET UP TO TRANSMIT 400 
177400 005462 MOV e » SOHBC ;COCTAL) CHARACTERS 
033503 005450 MOV #33503 , @DHLPR sLINE SPEED = 9600 BAUD 
001000 005452 MOV #1000, 8OHBCR SSET BREAK BIT FOR LINE ii 
001000 MOV #1000, BOHBAR sSET BAR BIT FOR LINE 11 
005436 2s: TST sWAIT FOR ALL CHARACTERS 
BNE $ :10 BE TRANSMITT 
000001 005434 CMPB #1 ,@DHSLR sCHECK TO SEE THAT ONLY 
BEQ 3% 31 CHARACTER WAS RECEI 
005424 MOV SOHSSR ,R4 ;CR4)*ACTUAL RECEIVED DATA 
000300 BIC @300 ,R4 :CLEAR UNWANTED BITS 
000400 MOV 00,R ;(RS)=EXPECTED SILO FILL LEVEL, 1 
a ; ;MORE THAN ONE CHARACTER RECEIVED, ERROR 
005372 3$: MOV GOHNAC ,R4 sREAD NEXT RECEIVED CHARACTER REGISTER 
006204 a ne Ra :IS RECEIVED CHARACTER A BREAK 
006176 MOV RURD11 RS 3;CRS)=EXPECTED RECEIVED CHARACTER 
oe 1 sRECEIVED DATA ERROR 
43: SCOPE ;CHECK FOR ITERATIONS, LOOP 
LINE =LINE+1 
BITX=BITX+BITX 
KX=*KXe1 
BREAKi \LINE, \BITX, \KX 
ches gl BY TRANSMITTING 2 NULL CHARACTERS 
$ 
;SET BREAK BIT FOR LINE 12 
sTRANSMIT BINARY COUNT PATTERN ON LINE i2 
SVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED 
sAND THAT IT IS A BREAK 
TS \XN,20,4$ 
000340 173364 T13: MOV #340 ,PS sDISABLE ALL INTERRUPTS 
000020 005404 MOV 0, ICOUNT ;SET UP FOR 20 ITERATIONS 
004634 005372 a MOV $, ESCAPE sSET UP TO ESCAPE TC NEXT TEST 
x <> 





sSET UP TO LOOP WITH DATA 


MOV @,FREEZ1 
-ENDC 





004644 
004652 
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000014 
012777 
004767 


012777 


012767 
012767 
012767 


000015 
012777 
004767 


004000 
005424 
000012 
012060 
177776 
033503 


002000 
000002 


004000 
005172 


173132 
005152 
005140 


005070 


XN=XNel 


MOV #61T11,@D0HSCR 
JSR PC ,CLRALL 


MOV #12, 9D0HSCR 
MOV @NULL , BDHBA 


¢-2, 8SDHBC 
MOV #33503 , @DHLPR 
MOV #2000, BDHBAR 


1$: CMPB $2 ,8@DHSLR 
BNE i$ 
MOV #81IT11,8DHSCR 
MOV #12, 80HSCR 
MOV @TBUF, A 
MOV @-400, SOHBC 
MOV #33503 , BDHLPR 
MOV #2000, SDHBCR 
MOV #2000, SDHBAR 

23: TST AR 
BNE Be 
CMPB #1 ,80HSLR 
BEQ 3% 
MOV SOHSSR ,R4 
BIC #300 .R4 
MOV #400 ,R5 
HLT 0 
EMT 0 

33: MOV SOHNAC ,R4 
CMP RWRD12 ,R4 
BEQ §¢ 
MOV RWRD12 ,R5 
HLT 1 
EMT 

4%; sc 

LINE =LINE +1 

BITX=BITX+BITX 

KX=KXe1 

BREAKi \LINE, \WITX, \KX 


TS \XN,20,4% 
T1 MOV 


: #340 PS 
Vv #20, ICOUNT 
MOV 04% , ESCAPE 
IF NB <> 
@,FREEZ1 
-ENDC 
XN*XNe1 
MOV #61711 ,8D0HSCR 
JSR PC ,CLRALL 


BINARY 
{VERIFY HTAT ONLY 1 
sAND THAT IT IS A 


SEQ 36 


sMASTER CLEAR INTERFACE 

;CLEAR ALL BUS ADDRESS AND 

sBUS ADDRESS MEMORY LOCATIONS 
sSELECT LINE 12 

sSET UPT TO TRANSMIT O CHARACTER 
;TWO OS WILL BE TRANSMITTED 

sSET LINE SPEED=9600 BAUD 


12 
sWAIT FOR 2 CHARACTERS TO BE RECEIVED 


sMASTER CLEAR INTERFACE 
sSELECT LINE 12 

sSET UP TO TRANSMIT 

sCOCTAL) CHARACTERS 

sLINE SPEED = 9600 BAUD 

sSET BREAK BIT FOR LINE 12 

sSET BAR BIT FOR LINE 12 

sWAIT FOR ALL CHARACTERS 

310 BE TRANSMITTED 

sCHECK TO SEE THAT ONLY 

31 CHARACTER WAS RECEIVED 

sCR4)*ACTUAL RECEIVED DATA 

sCLEAR UNWANTED BITS 

sCRS)“EXPECTED SILO FILL LEVEL, 1 

sMORE THAN ONE CHARACTER RECEIVED, ERROR 


sREAD NEXT RECEIVED CHARACTER REGISTER 
sIS RECEIVED CHARACTER A BREAK 


sCRS)=EXPECTED RECEIVED CHARACTER 
sRECEIVED DATA ERROR 


sCHECK FOR ITERATIONS, LOOP 


ge: yt! BY TRANSMITTING 2 NULL CHARACTERS 


OR LINE 13 
NARY COUNT PATTERN ON LINE 13 
1 CHARACTER IS RECEIVED 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 20 ITERATIONS 
iSET UP TO ESCAPE TO NEXT TEST 


;SET UP TO LOOP WITH DATA 3: 3 


sMASTER CLEAR INTERFACE 
sCLEAR ALL BUS ADDRESS AND 





005070 


005124 
0051352 











SEQ 37 
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012777 


' 012777 


012777 
012777 


012777 


012767 
012767 
012767 


000016 
012777 
004767 


012777 
012777 


000013 
012060 
177776 
033503 


004000 
004740 
000014 
012060 


004624 


;BUS ADDRESS MEMORY LOCATIONS 


MOV #13, @8DHSCR sSELECT LINE 13 
MOV @NULL , GOHBA ;SET UPT TO TRANSMIT O CHARACTER 
MOV ¢-2,80H6C ;TWO OS WILL BE TRANSMITTED 
MOV #33503 , @DHLPR ;SET LINE SPEED=9600 BAUD 
sCHARACTER LENGTH =8 BITS 
MOV #4000 , BOHBAR ;SET BAR BIT FOR LINE 13 
i$: ty _— sWAIT FOR 2 CHARACTERS TO BE RECEIVED 
MOV @681T11,8DHSCR sMASTER CLEAR INTERFACE 
MOV #13, 80HSCR sSELECT LINE 13 
MOV @TBUF , SOHBA ;SET UP TO TRANSMIT 400 
MOV #-400, @DHBC sCOCTAL) CHARACTERS 
MOV #33503 , GBDHLPR ;LINE SPEED = 9600 BAUD 
MOV #4000, SOHBCR iSET BREAK BIT FOR LINE 13 
MOV #4000, SOHBAR ;SET BAR BIT FOR LINE 13 
2s: TST S0HB sWAIT FOR ALL CHARACTERS 
BNE 23 310 BE TRANSMITTED 
CMPB #1 ,8DHSLR ;CHECK TO SEE THAT ONLY 
BEQ 3$ 31 CHARACTER WAS RECEIVED 
MOV SOHSSR ,R4 s(R4)“ACTUAL RECEIVED DATA 
BIC #300 ,R4 ;CLEAR UNWANTED BITS 
MOV #400 ,.R5 sCRS EXPECTED SILO FILL LEVEL, 1 
aoe 2 sMORE THAN ONE CHARACTER RECEIVED, ERROR 
3$: MOV »R4 sREAD NEXT RECEIVED CHARACTER REGISTER 
a . 13 .R4 :IS RECEIVED CHARACTER A BREAK 
MOV RWRO13 RS ;CRS)*EXPECTED RECEIVED CHARACTER 
an i sRECEIVED DATA ERROR 
4$: SCOPE :CHECK FOR ITERATIONS, LOOP 
LINE =LINE+1 
BITX=BITX+BITX 
KX=*KXel 
BREAK1 \LINE, \BITX, \KX 


ogee et BY TRANSMITTING 2 NULL CHARACTERS 
; 

sSET BREAK BIT FOR LINE 14 

sTRANSMIT BINARY COUNT PATTERN ON LINE 14 
iVERIFY MTAT ONLY 1 CHARACTER IS RECEIVED 
sAND THAT I7 IS A BREAK 


TS \XN,20,4$ 
TiS: MOV 0340 ,PS 








MOV 620, ICOUNT 3SET UP FOR 20 ITERATIONS 
ov ie MOV ES sSET UP TO ESCAPE TO NEXT TEST 
3 <> 
MOV @,FREEZ1 sSET UP TO LOOP WITH DATA 3 3 
-ENDC 
XN=XNe1 
MOV #6IT11,8D0HSCR sMASTER CLEAR INTERFACE 
JSR PC ,CLRALL ;CLEAR ALL BUS ADDRESS AND 
;BUS ADORESS MEMORY LOCATIONS 
MOV #14, GOHSCR sSELECT LINE 14 
MOV @NULL , BOHBA sSET UPT TO TRANSMIT O CHARACTER 


CZOHI-DO 
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177776 
033503 


010000 
000002 


004620 
004606 


172446 
004466 











MOV @-2,8DHBC ;TWO OS WILL BE TRANSMITTED 
MOV €33503, @DHLPR ;SET LINE SPEED=9600 BAUD 
sCHARACTER LENGTH =8 BITS 
MOV #10000 , SDHBAR sSET BAR BIT FOR LINE 14 
is: oa —_— sWAIT FOR 2 CHARACTERS TO BE RECEIVED 
MOV sMASTER CLEAR INTERFACE 
MOV sSELECT LINE 14 
MOV sSET UP TO TRANSMIT 400 
MOV sCOCTAL) CHARACTERS 
MOV sLINE SPEED = 9600 BAUD 
MOV sSET BREAK BIT FOR LINE 14 
MOV sSET BAR BIT FOR LINE 14 
2$: TST sWAIT FOR ALL CHARACTERS 
BNE :T0 BE TRANSMITTED 
CMPB sCHECK TO SEE THAT Y 
BEQ 31 CHARACTER WAS RECEIVED 
MOV sCR4)*ACTUAL RECEIVED DATA 
BIC sCLEAR UNWANTED BITS 
MOV sCRSJ=EXPECTED SILO FILL LEVEL, 1 
Al ; sMORE THAN ONE CHARACTER RECEIVED, ERROR 
3%: HOV ° sREAD NEXT RECEIVED CHARACTER REGISTER 
a _ 14 ,R4 :IS RECEIVED CHARACTER A BREAK 
MOV RWRD14 .RS sCRS)*EXPECTED RECEIVED CHARACTER 
on i sRECEIVED DATA ERRG.: 
4}: SCOPE sCHECK FOR ITERATIONS, LOOP 
LINE =LINE +i 
BITX*BITX+BITX 
KX=KXo1 
GREAK1 \LINE,\BITX, \KX 
sFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS 
3ON LINE 15 
4-1 SREAK BIT FOR LINE 15 
T BINARY COUNT PATTERN ON LINE iS 
SVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED 
sAND THAT IT IS A GREAK 
TS \XN,20,48 
Ti6: MOV #340 PS sDISABLE ALL INTERRUPTS 
MOV €20, ICOUNT sSET UP FOR 20 ITERATIONS 
sn 04% . ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
<> 
MOV @,FREEZ1 sSET UP TO LOOP WITH DATA 3 3 
-ENDC 
XN=XNeo1 
@6IT11,@DHSCR 
PC ,CLRALL 
MOV 
MOV 
MOV 
MOV 





sSET LINE SPEED*9600 BAUD 
sCHARACTER LENGTH °8 BITS 


SEQ 39 
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005406 012777 020000 004354 MOV #20000 , SBOHBAR sSET BAR BIT FOR LINE 15 
005414 122777 000002 004354 1%: CHPB 2, @OHSLR sWAIT FOR 2 CHARACTERS TC BE RECEIVED 
005422 001374 BNE 1% 
005424 012777 004000 004324 MOV @6IT11,@DHSCR sMASTER CLEAR INTERFACE 
005432 012777 000015 004316 MOV #15, @DHSCR sSELECT LINE 15 
005440 012777 012112 004316 MOV @TBUF , GDHBA sSET UP TO TRANSMIT 400 
005446 012777 177400 004312 MOV #-400, SDHBC sCOCTAL) CHARACTERS 
005454 012777 033503 004300 MOV €33503 , GDHLPR sLINE SPEED = 9600 BAUD 
005462 012777 020000 004302 MOV #20000 , BDHBCR sSET BREAK BIT FOR LINE 15 
005470 012777 920000 004272 MOV #20000 , BDHBAR sSET BAR BIT FOR LINE 15 
005476 005777 004266 2%: TST SDHBAR sWAIT FOR ALL CHARACTERS 
005502 001375 BNE 2$ 370 BE TRANSMITTED 
005504 122777 000001 004264 CMPB #1, SDHSLR sCHECK TO SEE THAT ONLY 
005512 001407 BEQ 3$ | 31 CHARACTER WAS RECEIVED 
005514 017704 004254 MOV GOHSSR ,R4 sCR4)*ACTUAL RECEIVED DATA 
005520 042704 000300 BIC #300 .R4 sCLEAR UNWANTED BITS 
005524 012705 000400 MOV #400 .R5 sCRS "EXPECTED SILO FILL LEVEL, 1 
005530 HLT 0 sMORE THAN ONE CHARACTER RECEIVED, ERROR 
005530 104000 EMT 0 
005532 017704 004222 3%: MOV GODHNAC .R4 sREAD NEXT RECEIVED CHARACTER REGISTER 
005536 026704 005044 CMP RWRD1IS .R4 sIS RECEIVED CHARACTER A BREAK 
005542 001403 BEQ 4S 
005544 016705 005036 MOV RWRD15 .R5 sCRS)°EXPECTED RECEIVED CHARACTER 
005550 HLT i sRECEIVED DATA ERROR 
005550 104001 EMT i 
005552 104400 4$: SCOPE sCHECK FOR ITERATIONS, LOOP 
000016 LINE =LINE+i 
040000 BITX*BITX+BITX 
000016 KX=*KXo1 
005554 BREAKi \LINE,\BITX, \KX 


sFLUSH a BY TRANSMITTING 2 NULL CHARACTERS 


sON 
SET BREAK BIT FOR LINE 16 

T BINARY COUNT PATTERN ON LINE 16 
‘VERIFY HTAT sh 1 CHARACTER IS RECEIVED 
sAND THAT IT IS A BREAK 


005554 TS \XN,20,48 
Ti7: 






005554 012767 000340 172214 ;OISABLE ALL INTERRUPTS 
005562 012767 000020 004234 sSET UP FOR 20 ITERATIONS 
005570 012767 006004 oi ak sSET UP TO ESCAPE TO NEXT TEST 

. sSET UP TO LOOP WITH DATA : 3 


-ENDC 
XNeXNel 





sWAIT 2 CHARACTERS TO BE RECEIVED 


ry 
<> 
ee 





aA 
age S898 oS §°882 
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012777 


012767 
012767 
012767 


000021 
012777 
004767 


012777 


000017 
012112 


171762 
004002 
003770 





SEQ 40 


sMASTER CLEAR INTERFACE 
sSELECT LINE 16 

sSET UP TO TRANSMIT 400 

sCOCTAL) CHARACTERS 

sLINE SPEED = 9600 BAUD 

sSET BREAK BIT FOR LINE 16 

sSET BAR BIT FOR LINE 16 

sWAIT FOR ALL CHARACTERS 

sT0 BE TRANSMITTED 

sCHECK TO SEE THAT ONLY 

31 CHARACTER WAS RECEIVED 

s(R4)*ACTUAL RECEIVED DATA 

sCLEAR UNWANTED BITS 

s(RS “EXPECTED SILO FILL LEVEL, 1 

sMORE THAN ONE CHARACTER RECEIVED, ERROR 


sREAD NEXT RECEIVED CHARACTER REGISTER 
sIS RECEIVED CHARACTER A BREAK 


sCRS)*EXPECTED RECEIVED CHARACTER 
sRECEIVED DATA ERROR 


;CHECK FOR ITERATIONS, LOOP 


sFLUSH UART BY TRANSMITTING 2 NULL CHARACTERS 





sDISABLE ALL INTERRUPTS 
sSET UP FOR 20 ITERATIONS 
sSET UP TO <SCAPE TO NEXT TEST 


sSET UP \- LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 
AR ALL BUS ADDRE 


NE 
sSET UPT TO TRANSMIT 0 CHARACTER 
sTWO OS WILL BE TRANSMITTED 

sSET LINE SPEED=9600 BAUD 

sCHARACTER LENGTH =8 BITS 

sSET BAR BIT FOR LINE 17 

sWAIT FOR 2 CHARACTERS TO BE RECEIVED 


sMASTER CLEAR INTERFACE 


MOV #681T11,@0HSCR 
MOV #16, BOHSCR 
MOV @TBUF , SOHBA 
MOV @-400, GDHB 
MOV 033503 , @DHLPR 
MOV 40000, R 
MOV #40000 , BDHBAR 
2s: TST BOHBAR 
BNE $ 
CMPB #1 ,8DHSLR 
BEQ 4 
MOV SOHSSR ,R4 
BIC #300 ,.R4 
MOV 6400 ,RS 
HLT 0 
EMT ie) 
33: MOV GOHNRC ,R4 
CMP RWRO16 .R4 
BEQ 4} 
MOV RWRD16 .RS 
HLT 4 
EMT 
4$: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 
KX=*KXel 
BREAKi \LINE,\BITX, \KX 
sON LINE 17 
sSET BREAK BIT FOR LINE 17 
: TRANSMIT BINARY COUNT PATTERN ON LINE 17 
sVERIFY HTAT ONLY 1 CHARACTER IS RECEIVED 
sAND THAT IT IS A BREAK 
TS \XN,20,48 
T20: MOV @340 PS 
MOV #20. ICOUNT 
MOV 043 ,ESCAPE 
IF NB <> 
MOV #,FREEZ1 
-ENOC 
XN=XNel 
MOV #61711 .,80HSCR 
JSR »CLRALL 
MOV #17, 80HSCR 
MOV @NULL , SOHBA 
MOV @-2, SDHBC 
MOV 433503 , @DHLPR 
MOV #100000 , SDHBAR 
1$: CMPB 62 ,8DHSLR 
BNE i$ 
MOV #681T11.8DHSCR 
MOV 417, 80HSCR 


MOV @TBUF , SDHBA 


sSELECT LINE 17 
sSET UP TO TRANSMIT 400 





me ie ee = 


006240 
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012777 


012767 
012767 
012767 


000022 
012777 
004767 


012777 
012777 
012777 


000340 
000020 
006350 


004000 
003570 


000000 
012112 
177490 


003626 
003614 
003616 
003606 


003600 


MOV #-400, BOHBC 
MOV #33503 ,@DHLPR 
MOV #100000, BDHBCR 
MOV #100000, SDHBAR 

2s: TST 80HB AR 
BNE 23 
CMPB #1 ,80HSLR 
BEQ 3$ 
MOV SOHSSR ,R4 
BIC #300 .R4 
MOV @400 ,R5S 
HLT 0 
EMT 0 

3$: MOV SOHNRC ,R4 
CMP RWRD17 ,R4 
BEQ 4¢ 
MOV RWRD17,RS 
HLT 1 
EMT 

4$: SCOPE 

LINE =LINE+1 

BITX=BITX+BITX 

KX=*KXel 

XLINE=LINE 

XBIT=BITX 

K=KX 

LINE =0 

BITX=1 

KX=0 

-REPT 20 

BLINDI \LINE,\BITX, \KX 

-NLIST 

LINE =LINE+1i 

BITX=BITX+BITX 

KX*KXeol 

-LIST 

-ENDR 

BLINDi \LINE,\BITX, \KX 


TS \XN,20,28 
MOV 


sSET HALF DUPLEX ON LINE 0 





sCOCTAL) CHARACTERS 

sLINE SPEED = 9600 BAUD 
sSET BREAK BIT FOR LINE 17 
sSET BAR BIT FOR LINE 17 
sWAIT FOR ALL CHARACTERS 
;T0 BE TRANSMITTED 

sCHECK TO SEE THAT ONLY 

31 CHARACTER WAS RECEIVED 
s(R4)*ACTUAL RECEIVED DATA 
s;CLEAR UNWANTED BITS 
s(RS)*EXPECTED SILO FILL LEVEL, 1 





SEQ 41 


sMORE THAN ONE CHARACTER RECEIVED, ERROR 


sREAD NEXT RECEIVED CHARACTER REGISTER 
sIS RECEIVED CHARACTER A BREAK 


;(RS5)*EXPECTED RECEIVED CHARACTER 
sRECEIVED DATA ERROR 


sCHECK FOR ITERATIONS, LOOP 


sTRANSMITI A BINARY COUNT PATTERN 
sVERIFY THAT NO CHARACTERS ARE RECEIVED 


T21: #340 ,PS 
$20. ICOUNT 
62% ,ESCAPE 
IF NB <> 
@,FREEZ1 
-ENDC 
XN=XNeol 
MOV €681T11,@DHSCR 
JSR PC, CLRALL 
MOV #0 ,8DHSCR 
MOV @TBUF , SOHBA 


@-400, SOHBC 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 20 ITERATIONS 
SET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA 


yee CLEAR INTERFACE 


O TRANSMIT 
3400 COCTAL) CHARACTERS 


; $ 





ee we 














SEQ 42 


006464 
006472 


012767 


000020 003324 


MOV #20, ICOUNT 
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006316 012777 073503 003436 MOV @73503 ,8@DHLPR ;SET RECEIVER BLIND 
sLINE SPEED =9600 BAUD 
sCHARACTER LENGTH = 8 BITS 
006324 012777 000001 003436 MOV @1,8DHBAR ;SET BAR BIT FOR LINE 0 
006332 005777 003432 1$: TST 80HBAR sWAIT FOR SLL CHARACTERS TO BE TRANSMITTED 
006336 001375 i$ 
006340 105777 003412 TSTB SOHSCR sWERE ANY CHARACTERS RECEIVED 
006344 100001 L 23 
006346 HLT 2 sRECEIVER NOT BLINDED, ERROR 
006346 104002 EMT 2 
006350 104400 2s: SCOPE ;CHECK FOR ITERATIONS, LOOP 
000001 LINE =LINE+1 
000002 BITX=BITX+BITX 
000001 KX*KXel 
006352 BLIND1 \LINE,\BITX, \KX 
;SET HALF DUPLEX ON LINE 1 
; TRANSMITI A BINARY COUNT PATTERN 
;VERIFY THAT NO CHARACTERS ARE RECEIVED 
006352 TS \XN,20,2$ 
006352 012767 000340 171416 T22: MOV #340 ,PS sDISABLE ALL INTERRUPTS 
006360 012767 000020 003436 MOV #20, ICOUNT ;SET UP FOR 20 ITERATIONS 
0C6366 012767 006462 003424 - MOV @23 , ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
s <> 
ane MOV @,FREEZ1 sSET UP TO LOOP WITH DATA ; 3 
000023 XN=XNel 
006374 012777 004000 003354 MOV #61T11,8DHSCR sMASTER CLEAR INTERFACE 
006492 004767 003456 JSR PC ,CLRALL ;CLEAR ALL BYTE COUNT AND 
;AND BUS ADDRESS MEMORY LOCATIONS 
006406 012777 003342 MOV i sSELECT LINE 1 
006414 012777 012112 003342 MOV @TBUF , SDHBA sSET UP TO TRANSMIT 
006422 012777 177400 003336 MOV #-400, SDHBC 7400 COCTAL) CHARACTERS 
006430 012777 073503 003324 MOV #73503 , @DHLPR ;SET RECEIVER BLIND 
;LINE SPEED =9600 BAUD 
sCHARACTER LENGTH = 8 BITS 
006436 012777 000002 003324 MOV $2 , BOHBAR ;SET BAR BIT FOR LINE i 
006444 005777 003320 1$: TST AR sWAIT FOR ALL CHARACTERS TO BE TRANSMITTED 
006450 001375 BNE i$ 
006452 105777 003300 TSTB SDHSCR sWERE ANY CHARACTERS RECEIVED 
006456 100001 BPL 2s 
006460 HLT 2 sRECEIVER NOT BLINDED, ERROR 
096460 104002 EMT 2 
006462 104400 2s: SCOPE sCHECK FOR ITERATIONS, LOOP 
000002 LINE =LINE+1 
000004 BITX=BITX+BITX 
000002 KX*KXe1 
006464 BLINDI \LINE, \BITX, \KX 
:SET HALF DUPLEX ON LINE 2 
; TRANSMITI A BINARY COUNT PATTERN 
sVERIFY THAT NO CHARACTERS ARE RECEIVED 
006464 TS \XN,20,2$ 
012767 000340 171504 123: MOV 4340 ,.PS ;DISABLE ALL INTERRUPTS 


sSET UP FOR 20 ITERATIONS 
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012767 006574 


000024 
012777 
004767 


012777 
012777 
012777 
912777 


012777 
005777 


012767 
012767 
012767 


000025 
012777 
004767 
012777 
012777 


012777 
012777 


012777 


004000 
003344 


000002 
012112 
177400 
073503 


000004 
003206 


003166 


000340 
000020 
006706 


003312 


171172 
003212 
003206 


MOV 2%, ESCAPE 
<> 
MOV @,FREEZ1 
-ENDC 
XN=XNel 
MOV @6IT11,8DHSCR 
JSR PC ,CLRALL 
MOV #2 ,,8DHSCR 
MCV #TBUF , SOHBA 
MOV #-400, 8DHBC 
MOV #73503 ,@DHLPR 
MOV $4 , BDHBAR 
1$: TST 8DHBAR 
BNE i$ 
TSTB @DHSCR 
BPL 2$ 
HLT 2 
EMT 2 
2s: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 
KX*KXel 
BLINDi \LINE,\BITX, \KX 


-IF NB 


-ENOC 
XN=XNeo1 


1$: 


2$ 


LINE =LINE+1 


sSET HALF DUPLEX ON LINE 3 


SEQ 43 


sSET UP TO ESCAPE TO NEXT TEST 

sSEY UP TO LOOP WITH DATA 3; 3 
sMASTER CLEAR INTERFACE 

sCLEAR ALL BYTE COUNT AND 

sAND BUS ADDRESS MEMORY LOCATIONS 
sSELECT LINE 2 

sSET UP TO TRANSMIT 


3400 COCTAL) CHARACTERS 
te RECEIVER BLIND 


sWAIT FOR ALL CHARACTERS TO BE TRANSMITTED 
sWERE ANY CHARACTERS RECEIVED 

sRECEIVER NOT BLINDED, ERROR 

sCHECK FOR ITERATIONS, LOOP 


;TRANSMITI A BINARY COUNT PATTERN 
s;VERIFY THAT NO CHARACTERS ARE RECEIVED 


TS \XN,.20,2% 
T24: 





sDISABLE ALL INTERRUPTS 
sSET UP FOR 20 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 


sSET UP TO LOOP WITH DATA ; 3 


sMASTER CLEAR INTERFACE 

;CLEAR ALL BYTE COUNT AND 

;AND BUS ADDRESS MEMORY LOCATIONS 
;SELECT LINE 3 

;SET UP TO TRANSMIT 

3400 COCTAL) CHARACTERS 

;SET RECEIVER BLIND 


sWAIT FOR ALI. CHARACTERS TO BE TRANSMITTED 
sWERE ANY CHARACTERS RECEIVED 

sRECEIVER NOT BLINDED, ERROR 

s;CHECK FOR ITERATICNS, LOOP 








LE ET TE OLDE ELE LED AE COLE OE SE NERS ES CT ES I TR re EE Te | 





——e- - 








SEQ 44 
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000020 BITX=BITX+BITX 
000004 KX=*K¥o1 
006710 BLIND1 \LINE,\BITX, \KX 
sSET HALF DUPLEX ON LINE 4 
sTRANSMITI A BINARY COUNT PATTERN 
sVERIFY THAT NO CHARACTERS ARE RECEIVED 
006710 TS \XN,20,2$ 
006710 012767 000340 171060 T25: MOV #340 ,PS sDISABLE ALL INTERRUPTS 
006716 012767 000020 003100 MOV #20, ICOUNT sSET UP FOR 20 ITERATIONS 
006724 012767 007020 003066 — MOV #2$, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
i <> 
—_— MOV @,FREEZ1 s;SET UP TO LOOP WITH DATA 3; 3 
000026 XN=XNe1 
006732 012777 003016 MOV #681T11,8DHSCR sMASTER CLEAR INTERFACE 
006740 004767 003120 JSR PC ,CLRALL sCLEAR ALL BYTE COUNT AND 
sAND BUS ADDRESS MEMORY LOCATIONS 
006744 012777 003004 MOV 4 , 8BDHSCR sSELECT LINE 4 
006752 012777 012112 003004 MOV @TSUF , BDHBA sSET UP TO TRANSMI 
006760 012777 177400 003000 MOV @-400, 8DHBC 3400 COCTAL) CHARACTERS 
006766 012777 073503 002766 MOV #73503 , BDHLPR sSET RECEIVER BL 
sLINE SPEED =9600 
sCHARACTER LENGTH = 8 BITS 
006774 012777 000020 002766 MOV #20, SOHBAR sSET BAR BIT FOR LINE 
007002 005777 002762 is: TST AR sWAIT FOR ALL CHARACTERS TO BE TRANSMITTED 
007006 001375 BNE 1% 
007010 105777 002742 TSTB SOHSCR sWERE ANY CHARACTERS RECEIVED 
007014 100001 BPL ra: 
007016 HLT 2 sRECEIVER NOT BLINDED, ERROR 
007016 104002 EMT 2 
007020 104400 2s: SCOPE s;CHECK FOR ITERATIONS, LOOP 
000005 LINE =LINE+1 
000040 BITX=BITX+BITX 
000005 KX=KX+1 
007022 BLIND1 \LINE,\BITX, \KX 
sSET HALF DUPLEX ON 
sTRANSMITI A BINARY COUNT PATTERN 
sVERIFY THAT NO CHARACTERS ARE RECEIVED 
007022 TS \XN,20,2% 
007022 012767 000340 170746 126: MOV #340.PS sDISABLE ALL INTERRUPTS 
007030 012767 0000 002766 MOV #20, ICOUNT sSET UP FOR 20 ITERATIONS 
007036 012767 007132 002754 a MOV #2$ , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
; «> 
one MOV 4, FREEZi sSET UP TO LOOP WITH DATA ; 3 
000027 XN=XNe+1 
007044 012777 004000 002704 MOV #81711 ,@DHSCR sMASTER CLEAR INTERFACE 
007052 004767 003006 JSR PC .CLRALL sCLEAR ALL BYTE COUNT AND 
: sAND BUS ADDRESS MEMORY LOCATIONS 
007056 012777 002672 MOV #5 , @DHSCR sSELECT LINE 5 
007064 012777 012112 002672 MOV @TBUF , @DHBA sSET UP TR 
007072 012777 177400 MOV -400, BDHBC 3400 COCTAL) CHARACTERS 
007100 012777 073503 002654 MOV #73503 ,@DHLPR sSET RECEIVER BLIND 
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012777 
005777 
75 


012767 
012767 
012767 


000030 
012777 
004767 


012777 


012767 
012767 
012767 


000040 
002650 


002630 


002654 


MOV 040, BDHBAR SET BAR BIT FOR LINE 5 
1s: TST SOHBAR ;WAIT FOR ALL CHARACTERS TO BE TRANSMI1TED 
TSTB — SDHSCR ;WERE ANY CHARACTERS RECEIVED | 
HLT ; sRECEIVER NOT BLINDED, ERROR 
2$: SCOPE ;CHECK FOR ITERATIONS, LOOP 
LINE *LINE+1 
BITX=BITX+BITX 
KX*KXe1 
BLIND1 \LINE, \BITX, \KX 
;SET HALF DUPLEX ON LINE 6 
;TRANSMITI A BINARY COUNT PATTERN 
;VERIFY THAT NO CHARACTERS ARE RECEIVED 
TS \XN,20,2$ 
127: | MOV #340,PS ;DISABLE ALL INTERRUPTS 
MOV #20, ICOUNT ;SET UP FOR 20 ITERATIONS 
as 2%. ESCAPE ;SET UP TO ESCAPE 10 NEXT TEST 
: <> 
MOV ®,FREEZ1 ;SET UP TO LOOP WITH DATA % 
-ENDC 
XN=XNe1 
MOV #B1T11,8DHSCR ;MASTER CLEAR INTERFACE 
JSR —s- PC, CLRALL. ;CLEAR ALL BYTE COUNT AND 
;AND BUS ADDRESS MEMORY LOCATIONS 
MOV 06, @DHSCR ;SELECT LINE 6 
MOV —«s- @TBUF, SDHBA ;SET UP TO T 
MOV —«- @- 400, BDHBC '400 COCTAL) CHARACTERS 
MOV §—«#73503, @OHLPR SET RECEIVER 
LINE SPEED 
;CHARACTER LENGTH = 8 BITS 
MOV #100, @DHBAR SET BAR BIT FOR LINE 6 
1$: TST SOHBAR ;WAIT FOR ALL CHARACTERS TO BE TRANSMITTED 
TsTB SOHSCR ;WERE ANY CHARACTERS RECEIVED 
MT 2 ;RECEIVER NOT BLINDED. ERROR 
2%: SCOPE ;CHECK FOR ITERATIONS. LOOP 
LINE =“_INE+1 
BITX=BITX+BITX 
KX*KXe1 
BLIND1 \LINE, \BITX, \KXx 


TS \XN,20,2% 
MOV 


000340 170522 130: 


000020 002542 
007356 002530 


sSET HALF DUPLEX ON LI 


NE 7 
; TRANSMITI A BINARY COUNT PATT 


Sei ee 





SEQ 45 


sLINE SPEED =9600 BAUD 
sCHARACTER LENGTH = 8 BITS 


ERN 
sVERIFY THAT NO CHARACTERS ARE RECEIVED 


#340 ,PS 
#20, ICOUNT 


MOV 02%, ESCAPE 


sDISABLE ALL INTERRUPTS 
sSET UP FOR 20 ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 











EN CUTE a de Ye ee Re ee 
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000031 
012777 
004767 


012777 


012777 


012777 
005777 


012767 
012767 
012767 


073503 


000200 
002424 


002404 


000340 
000020 
007470 


170410 
002430 
002416 


-IF NB <> 
MOV #,FREEZ1 
-ENDC 
XN*XNe1 
MOV #81T11,8DHSCR 
JSR PC ,CLRALL 
MOV #7, 8DHSCR 
MOV @TBUF , BOHBA 
MOV #-400, 8DHBC 
MOV #73503 , @DHLPR 
MOV #200 , AOHBAR 
i$: TST S0HBAR 
BNE i$ 
TSTB @DHSCR 
BPL 2$ 
HLT é 
EMT 2 
23: SCOPE 
LINE =LINE+1 
BITX=BITX+BITX 
KX=KXel1 
BLINDi \LINE,\BITX, \KX 


.IF NB 


-ENDC 
XN=XNel 


i$: 


2$: 


sSET HALF DUPLEX ON LINE 





SEQ 46 


sSET UP TO LOOP WITH DATA 3 3 


sMASTER CLEAR yg te 

sCLEAR ALL BYTE COUNT AND 

sAND BUS Oo i MEMORY LOCATIONS 
sSELECT LINE 7 

sSET UP TO TRANSMIT 

3400 COCTAL) CHARACTERS 

sSET RECEIVER BLIND 

sLINE SPEED =9600 BAUD 

sCHARACTER LENGTH = 8 on 

sSET BAR BIT FOR LINE 7 

sWAIT FOR ALL CHARACTERS TO BE TRANSMITTED 


sWERE ANY CHARACTERS RECEIVED 
sRECEIVER NOT BLINDED, ERROR 
sCHECK FOR ITERATIONS, LOOP 


0 
sTRANSMITI A BINARY COUNT PATTERN 
sVERIFY THAT NO CHARACTERS ARE RECEIVED 


TS \XN,20,2$ 
T3 MOV 


MOV 
MOV 


<> 


MOV 


TST6 
BPL 
HLT 


LINE =LINE +1 


BITX=BITX+BITX 








NTERRUPTS 
ITERATIONS 
sSET UP TO ESCAPE TO NEXT TEST 
sSET UP TO LOOP WITH DATA ; 3 





s CHARACTER LENGTH = 8 BITS 

;WAIT FOR ALL CHARACTERS TO BE TRANSMITTED 
sWERE ANY CHARACTERS RECEIVED 

sRECEIVER NOT BLINDED, ERROR 

sCHECK FOR ITERATIONS, LOOP 





LLL LLL LLL LLL CL LL TC CCC CCC Cn te cette a 
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000011 KX*KXe1 
007472 BLINDi \LINE,\BITX, \KX 
sSET HALF DUPLEX ON LINE 11 
sTRANSMITI A BINARY COUNT PATTERN 
;VERIFY THAT NO CHARACTERS ARE RECEIVED 
007472 TS \XN,20,2$ 
007472 012767 0600340 170276 T32: MOV #340,PS sDISABLE ALL INTERRUPTS 
007500 012767 000020 002316 MOV #20, ICOUNT sSET UP FOR 20 ITERATIONS 
007506 012767 007602 002304 - a MOV 2%, ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
‘ <> 
—_— MOV @,FREEZ1 sSET UP TO LOOP WITH DATA ; 3 
000033 XN=XNeo1 
007514 012777 002234 MOV #61IT11,80HSCR sMASTER CLEAR INTERFACE 
007522 004767 002336 JSR PC ,CLRALL sCLEAR ALL BYTE COUNT AND 
sAND BUS ADDRESS MEMORY LOCATIONS 
007526 012777 000011 002222 MOV #11, Q0HSCR sSELECT LINE 11 
007534 012777 012112 002222 MOV @TBUF , BDHBA sSET UP TO TRANSMIT 
007542 012777 177400 002216 MOV #-400, BDHBC 3400 COCTAL) CHARACTERS 
007550 012777 073503 002204 MOV #73503 , BDHLPR sSET RECEIVER BLIND 
sLINE SPEED =9600 BAUD 
sCHARACTER LENGTH = 8 +i 
007556 012777 001000 002204 MOV #1000, BOHBAR sSET BAR BIT FOR LINE 1 
00 005777 002200 i$: TST BOHBAR sWAIT FOR ALL CHARACTERS TO BE TRANSMITTED 
007570 001375 BNE i$ 
007572 105777 002160 TSTB SOHSCR sWERE ANY CHARACTERS RECEIVED 
007576 100001 BPL 2$ 
007600 HLT 2 sRECEIVER NOT BLINDED, ERROR 
007600 104002 EMT 2 
007602 104400 23: SCOPE sCHECK FOR ITERATIONS, LOOP 
000012 LINE =LINE+1 
aaa 
000012 =*KXe1 
007604 BLIND! \LINE , \BITX, \KX 
s;SET HALF DUPLEX ON LINE 
S TRANSHITI A BINARY COUNT: PATTERN 
sVERIFY THAT NO CHARACTERS ARE RECEIVED 
007604 TS \XN,20,2$ 
007604 012767 000340 170164 T33: MOV #340 ,PS sDISABLE ALL INTERRUPTS 
007612 012767 000020 002204 MOV #20, ICOUNT sSET UP FOR 20 ITERATIONS 
007620 012767 007714 002172 = ae MOV #2% ,ESCAPE sSET UP TO ESCAPE TO NEXT TEST 
; <> 
anit ®,FREEZ1 sSET UP TO LOOP WITH DATA ; 3 
000034 XN=XNo1 
007626 012777 002122 MOV #6IT11,QDHSCR sMASTER CLEAR INTERFACE 
007634 004767 002224 JSR PC ,CLRALL sCLEAR ALL BYTE COUNT AND 
AND BUS ADDRESS MEMORY LOCATIONS 
007640 012777 i2 002110 MOV 12, @DHSCR sSELECT LINE 12 
007646 0127 012412 002110 MOV @TBUF , GDHBA sSET UP TO TRANSMIT 
007654 012777 177400 002104 MOV #-400, GDHBC 3400 COCTAL) CHARACTERS 
007662 012777 073503 002072 MOV #73503 , 8OHLPR sSET RECEIVER BLIND 


sLINE SPEED =9600 BAUD 





—— 
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012777 
005777 


012767 
012767 
012767 


012767 
012767 
012767 


002000 002072 
002066 


002046 


000340 
000020 
010026 


004000 
002112 
000013 
012112 


177400 
073503 


004000 
001754 
001734 


170052 
002072 
002060 


MOV $2000, BOHBAR ;SET BAR BIT FOR LINE i2 
ay he sWAIT FOR ALL CHARACTERS TO BE TRANSMITTED 
hi ig _— sWERE ANY CHARACTERS RECEIVED 
ee ; sRECEIVER NOT BLINDED, ERROR 
2s: SCOPE ;CHECK FOR ITERATIONS, LOOP 
LINE =*LINE+1 
BITX=BITX+BITX 
KX=KX+1 
BLINDi \LINE,\BITX, \KX 
;SET HALF DUPLEX ON LINE 13 
; TRANSMITI A BINARY COUNT PATTERN 
;VERIFY THAT NO CHARACTERS ARE RECEIVED 
TS \XN,20,2$% 
T34: MOV #340 ,PS ;DISABLE ALL INTERRUPTS 
MOV #20, ICOUNT ;SET UP FOR 20 ITERATIONS 
ve MOV #2% , ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
a <> 
MOV @,FREEZ1 ;SET UP TO LOOP WITH DATA 5 3 
-ENDC 
XN=XNel 
MOV #6IT11.8DHSCR sMASTER CLEAR INTERFACE 
JSR PC ,.CLRALL ;CLEAR ALL BYTE COUNT AND 
;AND BUS ADDRESS MEMORY LOCATIONS 
MOV #13, @8DHSCR sSELECT LINE 13 
MOV @TBUF , SOHBA ;SET UP TO TRANSMIT 
MOV #-400, SDHBC :400 COCTAL) CHARACTERS 
MOV #73503 , @DHLPR ;SET RECEIVER BLIND 
sLINE SPEED =9600 BAUD 
; CHARACTER LENGTH = 8 BITS 
MOV #4000 , SOHBAR - sSET BAR BIT FOR LINE 13 
i$: in . ;WAIT FOR ALL CHARACTERS TO BE TRANSMITTED 
hig _— sWERE ANY CHARACTERS RECEIVED 
ie 4 sRECEIVER NOT BLINDED, ERROR 
23: SCOPE ;CHECK FOR ITERATIONS, LOOP 
LINE =LINE +1 
GETX-BITX- 817% 
KX =KX+ 
SLINDL \LINE , \BITX, \KX 


TS \XN,20,2$ 


000340 167740 T35: 


000020 
010140 


001760 
001746 























SEQ 48 


sCHARACTER LENGTH = 8 BITS 


sSET HALF DUPLEX ON LINE 14 
sTRANSMITI A BINARY COUNT PATTERN 
sVERIFY THAT NO CHARACTERS ARE RECEIVED 


MOV 340 ,.PS sDISABLE ALL INTERRUPTS 
MOV #20, ICOUNT sSET UP FOR 20 ITERATIONS 
MOV #2% , ESCAPE sSET UP TO ESCAPE TO NEXT TEST 


— 


010164 
010172 


010176 
010204 


MACRO V 


000036 
012777 
004767 
012777 
012777 


012777 
012777 


012777 
005777 


012767 
012767 
012767 
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073503 


010000 
001642 


001622 





SEQ 49 | 


MOV @,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
-ENOC 
XN*XNel 
MOV 61IT11,8DHSCR sMASTER CLEAR INTERFACE 
JSR PC .CL RALL ;CLEAR ALL BYTE COUNT AND 
;AND BUS ADDRESS MEMORY LOCATIONS 
MOV #14, @DHSCR sSELECT LINE 14 
MOV @TBUF , BOHBA ;SET UP TO TRANSMIT 
MOV @-400, 8OHBC 3400 COCTAL) CHARACTERS 
MOV #73503 , @DHLPR ;SET RECEIVER BLIND 
;LINE SPEED =9600 BAUD 
;CHARACTER LENGTH = 8 BITS 
MOV #10000 , BDHBAR ;SET BAR BIT FOR LINE 14 
i$: TST ee sWAIT FOR ALL CHARACTERS TO BE TRANSMITTED 
i agg ~ one sWERE ANY CHARACTERS RECEIVED 
ate : sRECEIVER NOT BLINDED, ERROR 
2s: SCOPE ;CHECK FOR ITERATIONS, LOOP 
LINE =LINE+1 
BITX*BITX+BITX 
KX*KXe1 


BLINDi \LINE,\BITX, \KX 


sSET HALF DUPLEX ON LINE 15 
sTRANSMITI A BINARY COUNT PATTERN 
sVERIFY THAT NO CHARACTERS ARE RECEIVED 





TS \XN,20,2% 
T36: MOV #340 PS sDISABLE ALL INTERRUPTS 
MOV $20, ICOUNT ;SET UP FOR 20 ITERATIONS 
or th MOV #23, ;SET UP TO ESCAPE TO NEXT TEST 
m <> 
MOV @,FREEZ1 sSET UP TO LOOP WITH DATA 3; 3 
-ENDC 
XN=XNe1 
MOV @81IT11,@8D0HSCR sMASTER CLEAR INTERFACE 
JSR PC ,CLRALL 
MOV 
MOV 
MOV 
MOV 
MOV 
1s: ji " sWAIT FOR ALL CHARACTERS TO BE TRANSMITTED 
a aaa sWERE ANY CHARACTERS RECEIVED 
or . sRECEIVER NOT BLINDED, ERROR 
23: SCOPE ;CHECK FOR ITERATIONS, LOOP 
LINE =LINE+1 
BITX=BITX+BITX 
KX=*KXeol 











SEQ 50 








BAUD 
; CHARACTER LENGTH = 8 BITS 


CZDHI-DO MACRO VO4.00 27-JUN-85 13:08:01 PAGE 20-24 
010254 BLINDi \LINE,\BITX, \KX 
;SET HALF DUPLEX ON LINE % 
;TRANSMITI A BINARY COUNT PATTERN 
sVERIFY THAT NO CHARACTERS ARE RECEIVED 
010254 TS \XN,20,2$ 
010254 012767 000340 167514 137: MOV 0340,PS sDISABLE ALL INTERRUPTS 
010262 012767 000020 001534 MOV #20, ICOUNT sSET UP FOR 20 ITERATIONS 
010270 012767 010364 001522 - 2 MOV @2$,ESCAPE ;SET UP TO ESCAPE TO NEXT TEST 
; <> 
— MOV @,FREEZ1 ;SET UP TO LOOP WITH DATA ; 3 
XN=XNel 
010276 012777 001452 MOV @61IT11,@D0HSCR sMASTER CLEAR INTERFACE 
010304 004767 001554 JSR PC, CLRALL ;CLEAR ALL BYTE COUNT AND 
sAND BUS ADDRESS MEMORY LOCATIONS 
010310 012777 16 001440 MOV #16, @0HSCR sSELECT LINE 16 
010316 012777 O12112 001440 MOV @TBUF , BOHBA sSET UP TO TRANSMIT 
0. 012777 177400 001434 MOV . SOHBC 3400 COCTAL) CHARACTERS 
010332 012777 073503 001422 MOV #73503 , BDHLPR sSET RECEIVER BLIND 
sLINE SPEED =9600 BAUD 
sCHARACTER LENGTH = = BITS 
010340 012777 040000 001422 MOV #40000 , BOHBAR SSET BAR BIT FOR LINE 16 
010346 005777 001416 i$: TST sWAIT FOR ALL CHARACTERS TO BE TRANSMITTED 
010352 001375 BNE i$ 
010354 105777 001376 TSTB SOHSCR sWERE ANY CHARACTERS RECEIVED 
010360 100001 BPL ef 
010362 HLT 2 sRECEIVER NOT BLINDED, ERROR 
010362 104002 EMT 2 
010364 104400 2s: SCOPE sCHECK FOR ITERATIONS, LOOP 
000017 LINE =LINE+1 
1 BITX=BITX+BITX 
000017 KX*KXel 
010366 BLINDi \LINE,\BITX, \KX 
sSET HALF _ ON LINE 1 
sTRANSMITI A BINARY COUNT P ATTERN 
:VERIFY THAT NO CHARACTERS ARE RECEIVED 
010366 TS \XN,20,28 
010366 012767 000340 167402 T40: MOV @340 .PS sDISABLE ALL INTERRUPTS 
010374 012767 001422 MOV 20,1 sSET UP FOR 20 ITERATIONS 
010402 012767 010476 001410 ~ MOY ° ;SET UP TO ESCAPE TO NEXT TEST 
; <> 
MOV &,FREEZ1 :SET UP TO LOOP WITH DATA 3; 3 
000041 XN*XNeol1 
010410 012777 004000 001340 sMASTER CLEAR 
010416 004767 001442 sCLEAR ALL BYTE COUNT 
sAND BUS ADDRESS MEMORY LOCATIONS 
010422 012777 000017 001326 MOV ;SELECT 17 
010430 012777 Ol2i112 001326 MOV sSET UP TRANSMIT 
010436 012777 177400 001322 MOV 3400 COCTAL) CHARACTERS 
01 012777 073503 001310 MOV :SET RECEI BLIND 
sLINE SPEED =9600 
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012777 100000 001310 
001304 


005777 
001375 


001264 


23: 


LINE =LINE+1 


BITX=BITX+BITX 
KX =K 


Xel 


#100000, GDHBAR 
SOHBAR 





sSET BAR BIT FOR LINE 17 


sWAIT FOR ALL CHARACTERS TO BE TRANSMITTED 


sWERE ANY CHARACTERS RECEIVED 
sRECEIVER NOT BLINDED, ERROR 
sCHECK FOR ITERATIONS, LOOP 


SEQ 51 


CZDHI-DO 


1 
2 010500 


3 010600 
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016767 
013701 
001405 


000005 
004711 
000240 
000240 


000240 
000167 
000001 


006 
012012 


001246 


170514 


170234 


170172 
170162 
170152 


001162 


EOP t/BEGIN/ 
sEND OF PASS 
sTYPE NAME OF TEST 
sUPOATE PASS COUNT 
sCHECK FOR EXIT TO ACT-1i1 
sRESTART TEST 

EOP: TYPE sTYPE NAME OF TEST 
MEPASS 
CLR LAST sCLEAR LAST ERROR PC 
CLR ERRFLG sCLEAR ERROR FLAG 
INC PASCNT sUPDATE PASS COUNT 
TST LIGHTS s ARE WE USING LIGHTS? 
BNE 2$ s BRANCH IF WE ARE 
TYPE s TYPE PASCOUNT MESSAGE 
PASTXT 
OCTASC 3; PRINT PASSCOUNT 
PASARG 

.. BR 33 3s CONTINUE 

: 

- MOV PASCNT ,LIGHTS sDISPLAY PASS COUNT 
MOV o@42,Ri sCHECK FOR ACT-11 OR DOP 
eae RESTRT sIF NOT, CONTINUE TESTING 

LOGICAL: JSR PC .CRL) 

NOP 
NOP 
NOP 

RESTRT: JMP BEGIN 

PASARG: .WORD i 3s PARAMETERS TO PRINT PASSCOUNT 
BYTE 6.2 
-WORD PASCNT 

. SCOPE 


sCHECK FOR LOOP ON CURRENT TEST 
sCHECK FOR ITERATION SUPPRESSI 





> £2 SUUGS 





34; 6 


CZDHI-D0 


010676 
4 010700 


010700 
010706 
010710 
010714 
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000762 BR 2s 
- SCOP1 


sCHECK FOR FREEZE ON CURRENT DATA 
032777 001000 170072 SCOPIR: ou ct 


001402 1 
016716 001106 MOV FREEZ1,(SP) 
000002 i$: RTI 





SEQ 53 


; 4 


0 OltOt,O,QG( eee Se 


SEQ 54 


CZDHI -D0 MACRO V04.00 27-JUN-85 13:08:01 PAGE 22 
1 010716 ERROR 
sERROR HANDLER 
010716 032777 020000 170054 ERRORS: BIT @SW13, OSWR . 4 
010724 001055 BNE HALTS 
010726 021667 001122 CHP (SP),LAST 
010732 001404 BEQ 18 
010734 011667 001114 MOV (SP),LAST 
010740 005067 001044 CLR ERRFLG 
010744 104406 18: SAVOSP 
010746 011605 MOV (SP),RS 
010750 162705 000002 SUB @2.R 
010754 011504 MOV (RS) ,R4 
010756 006304 ASL R4 
010760 006304 ASL R4 
010762 042704 177001 BIC #177001,R4 
010766 062704 013336 ADD @ERRTAB.R4 
010772 012467 000040 MOV (R4)+, ERRMSG 
010776 011467 000052 MOV (R4),DATABP 
011002 005767 001002 TST ERRFLG 
011006 001403 TYPMSG 
011010 005767 000040 TST DATABP 
011014 001011 BNE TYPDAT 53 
011016 104401 TYPMSG: TYPE 3 
011020 013114 MCRLF _ 
011022 104402 OCTASC / 
011024 011122 ERTABO 
011026 012767 000001 000754 MOV #1, ERRFLG 
011034 104401 TYPE 
011036 000000 ERRMSG: 0 
011040 005767 000010 TYPDAT: TST DATABP 
011044 001404 BEQ RESREG 
011046 104401 
011050 013114 MCRLF 
011052 OCTASC 
011054 DATABP: 0 
011056 104407 RESREG: RESOS 
011060 005777 167714 HALTS: TST aSwe 
011064 100005 BPL EXITER 
011066 010046 PUSHRO 
011070 016600 000002 MOV 2(SP),RO 
011074 000000 HALT 
011076 012600 POPRO 
011100 005267 000710 EXITER: INC ERRCNT 
011104 032777 002000 167666 BIT @SW10, SSUR 
011112 001402 BEQ 1$ 
011114 016716 000700 MOV ESCAPE .( SP) 
011120 000002 1s: RTI 
011122 000001 ERTABO: 1 
011124 006 002 BYTE 6,2 
011126 012046 SAVPC 
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000656 


TRPSRV : 


TRPOK: 


. SAVREG 


SVOSP: 


SVO5: 


-RESREG 


RSOS: 





SEQ 55 
sTRAP DISPATCH SERVICE 
sARGUMENT OF TRAP IS EXTRACTED 
sAND USED AS OFFSET TO OBTAIN POINTER ; 3 
sTO0 SELECTED SUBROUTINE 
MOV (SP), -(SP) ;GET PC OF RETURN 
SUB #2,(SP) ;=PC OF TRAP 
MOV aCSP), (SP) sGET TRP 
ASL (SP) sMULTIPLY TRAP ARG BY 2 
BIC #177001, (SP) ;CLEAR UNWANTED BITS 
ADD @TRPTAB, CSP) sPOINTER TO SUBROUTINE ADDRESS 
MOV aCSP), (SP) sSUBROUTINE ADDRESS 
JMP OC SP )+ ;GO TO SUBROUTINE 


sSAVE PC OF TEST THAT FAILED AND RO-RS 


MOV 4(SP), SAVPC 
sSAVE RO-RS 

MOV RS ,SAVRS 
MOV R4 ,SAVR4 
MOV RS ,SAVR3 
MOV R2,SAV 
MOV R1,SAVR1 
MOV RO, SAVRO 
RTI 

sRESTORE RO-RS 
MOV SAVRO,RO 
MOV SAVR1,R1 
MOV SAVR2, 
MOV SAVRS RS 
MOV SAVR4 ,R4 
MOV SAVRS.RS 
RTI 





CZOHI -D0 


1 011254 
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000002 
112577 000450 


. TYPER 


TYPER: 
1$: 


INSTR2: 


sTELETYPE OUTPUT ROUTINE 


@CSP),RS5 
#2 ,(SP) 
S8TPCSR 
1$ 

CR5) 

2s 


CRS)+, @TPDBR 
i$ 


sASCII STRING INPUT ROUTINE 


BR 
RTI 


8@( SP), MSG 
@2,(SP) 


@INBUF .R4 


#200, CR4) 
CR4)+,@15 


INSTR2 
STKOBR , STPDER 
PCSR 





OL EE LT AT wi 


SEQ 56 











SEQ 57 





CZ0HI-DO MACRO VO4.00 27-JUN-85 13:08:01 PAGE 25 
1 011410 .PARAMS 
sCONVERT ASCII STRING TO OCTAL : ; 3 
011410 011605 PARAMS: MOV CSP),.R5 
011412 012567 000146 MOV CRS5)+,LOLIM 
011416 012567 000144 MOV CR5)+,HILIM 
011422 012567 000142 MOV CRS)+,DEVADR 
011426 112567 000140 MOVB CR5)+,LOBITS 
011432 112567 000135 CRS) +, ADRCNT 
011436 010516 MOV : 
011440 005005 PARAM1: CLR RS 
011442 012704 013300 MOV @INGUF ,R4 
011446 122714 1 CMPB #15, (R4) 
011452 001420 BEQ 
011454 121427 000060 1$: CMPB CR4) , 960 
011460 002415 BLT PARERR 
011462 121427 000067 CR4), 067 
011466 BGT 
011470 142714 000060 BICB 60, (R4) 
011474 1 BISB CR4)+¢,R5 
011476 122714 000015 #15, (R4) 
011502 001406 BEQ 
011504 006305 ASL 
006305 ASL RS 
011510 006305 ASL 
011512 000760 BR i$ 
011514 104404 PARERR: INSTER 
011516 000750 BR PARAM1 
sTEST TO SEE IF NUMBER IS WITHIN LIMITS 
011520 020567 000042 LIMITS: RS .HILIM 
011524 101373 PARERR 
011526 020567 000032 RS .LOLIM 
011532 103770 PARERR 
011534 136705 000032 LOBITS.RS ; 3 
011540 001365 PARERR 
sSTORE NUMBER AT SPECIFIED ADDRESS 
011542 016704 000022 MOV DEVADR ,R4 
011546 010524 1$: MOV RS. CR4)+ 
011550 062705 000002 ADO #2 RS 
011554 105367 000013 DECB ADRCNT 
011560 001372 BNE i$ 
011562 0900002 RTI 
011564 090000 L 
011566 000000 HILIM: 0 
€11570 000000 DEVADR: 0 
011572 000000 LOBITS: 0 
011573 ADRCNT =LOBITS+1 


-— 








CZO0HI-DO 


—— 


011574 


011574 
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017601 


177770 
000260 





-OCTASC 


OCTASN: 


4$: 





sCONVERT OCTAL NUMBER TO ASCII AND OUTPUT TO TELEPRINTER 


PO SE I IE EY et ER ee a ee 


6(SP),R1 
62,(SP) 
(R1)+,WROCNT 








SEQ 58 


= ranean 


CZO0HI-DO 


TLVL> 


—— 
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-POINT 


TKCSR: 


ooooooococoococso o 





SEQ 59 


*/DHSCR, DHNRC , OHLPR, OHBA , OHBC , DHBAR , DHBCR, DHSSR, DHSLR, OHRVEC , DHRLVL , OHTVEC ,DHTLVL/ 
sINDIRECT POINTERS "3 LVL 


177560 
177562 
177564 
177566 
A <DHSCR .DHNRC , DHLPR ,DHBA, DHBC , OHBAR ,DHBCR , DHSSR ,DHSLP ,DHRVEC, DHRLVL , OKTVEC, DH 
t/ENDFLG ,NULL,LINACT/ 
;PROGRAM VARIABLES 
sERROR FLAG 
;PASS COUNT 
sERROR C 


ooo orvrocooococoecoocoececeocooco 


<ENDFLG, NULL 





OUNT 
sSCOPE RETURN ADDRESS FOR TEST LOOPING 
sADDRESS FOR ERROR ESCAPE 

sDATA LOOPING RETURN ADDRESS 
sITERATION COUNT FOR TEST IN PROGRESS 
sNUMBER OF ITERATIONS THIS TEST 


ERROR 
sLINACT> 


CZOHI-DO 


— 


1 012064 


Kr Owes uw 


012110 
012112 


012113 
012114 
012115 
012116 
012117 
012120 
012121 
012122 
012123 
012124 
012125 
012126 
012127 
012130 
012131 
012132 
012133 
012134 
012135 
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000020 
177670 
177666 
177652 


CCLRALL 


s;CLEAR ALL BYTE COUNT AND BUS ADDRESS REGISTERS 


CLRALL: MOV 
1$: CL 


TDAT=1 
TBUF : 


NL 
TOAT=TDAT+1 
LIST 


-ENDR 

-BYTE  TDAT 
TDAT=TDAT +1 

-BYTE  TDAT 
TDAT*TDAT+1 

-BYTE  TDAT 
TDAT=TDAT +1 

-BYTE  TDAT 
TOAT=TDAT+1 

-BYTE  TDAT 
TDAT=TDAT+1 

-BYTE  TODAT 
TOAT=TDAT+1 

-BYTE  TDAT 
TOAT=TDAT +1 

-BYTE TDAT 
TDAT=TDAT+1 

-BYTE  TDAT 
TOAT=TDAT+1 

-BYTE  TDAT 
TOAT=TDAT+1 

-BYTE  TDAT 
TDAT=TDAT +1 

-BYTE  TDAT 


TDAT=TDAT+1 


BYTE TDAT 
TDAT=TDAT +1 
.BYTE TDAT 
TDAT=TDAT+1 
BYTE TDAT 


-BY 
TDAT=TDAT+1 


-BYTE  TOAT 
TOAT=TDAT+1 


#20,R0 
aD 





a EE 


SEQ 60 


CZOHI-D0 


012136 
012137 
012140 
012141 
012142 
012143 
012144 
012145 
012146 
012147 
012150 
012151 
012152 
012153 
012154 
012155 
012156 
012157 
012160 
012161 
012162 
012163 
012164 
012165 
012166 
012167 
012170 
012171 
012172 
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024 


-BYTE  TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT +1 


-BYT T 

TDAT=TDAT+1 
-BYTE  TDAT 
TOAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT+1 


-BYTE  TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT+1 


A 
TOAT=TDAT+1 
-BYTE TDAT 
TDAT=TDAT+1 
-BYTE TDAT 
TDAT=TDAT+1 
-BYTE ‘TDAT 
TDAT=TDAT +2 
-BYTE  TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT +i 
-BYTE  ITOAT 
TDAT=TDAT +1 
-BYTE  TOAT 
TDAT=TDAT+1 
-BYTE  ‘TDAT 
TDAT*=TDAT +i 
-BYTE TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT +1 


TDAT=TDAT+1 
BYTE 


TDAT 





ceennenn ener errr eee ee eee reece SS tse ssl Ss sees eee -_—<—-™, 


SEQ 61 





ar Ee 


-— 


CZDHI-DO MACRO VO4.00 27-JUN-85 13:08:01 PAGE 28-2 tees 
000061 TDAT=TDAT+1 
012173 061 -BYTE  TOAT 
000062 TDAT=TDAT+1 
012174 062 -BYTE  TDAT 
000063 TDAT=TDAT +1 
012175 063 -BYTE  TDAT 
000064 TDAT=TDAT+1 
012176 064 -BYTE  TOAT 
000065 TDAT=TDAT+1 
012177 065 -BYTE TDAT 
TDAT=TDAT+1 
012200 066 -BYTE  TDAT 
000067 TDAT=TDAT +1 
012201 067 -BYTE TDAT 
C90070 TDAT=TDAT+1 
012202 070 -BYTE  TDAT 
000071 TDAT=TDAT+1 
012203 071 -BYTE  TDAT 
000072 TOAT=TDAT+1 
012204 072 -BYTE  TDAT 
000073 TDAT=TDAT+1 
012205 073 -BYTE  ‘TDAT 
000074 TOAT=TOAT +1 
012206 074 -BYTE TDAT 
000075 TOAT=TDAT+1 
012207 075 -BYTE  TDAT 
000076 TOAT=TDAT+1 
012210 076 -BYTE  TDAT 
000077 TDAT=TDAT+1 
012211 077 BYTE  TDAT 
000100 TDAT=TDAT +1 
012212 1 -BYTE  TDAT 
000101 TDAT=TDAT+1 
012213 101 -BYTE  TDAT 
000102 TDAT=TDAT +1 
012214 1 -BYTE  TOAT 
000103 TOAT=TDAT+1 
012215 103 -BYTE TDA 
000104 TOAT=TDAT+1 
012216 104 -BYTE  TDAT 
000105 TDAT*TDAT +1 
012217 1 -BYTE 
000106 TOAT=TDAT+1 
012220 106 -BYTE  TDAT 
000107 TDAT=TDAT +i 
012221 107 -BYTE  TDAT 
000110 TDAT=TDAT +1 
012222 110 -BYTE  TDAT 
000111 TDAT=TDAT +1 
012223 111 E  TOAT 
000112 TDAT*TDAT +1 
012224 1 .BYTE T 
000113 TOAT=TOAT +1 
012225 113 -BYTE  TDAT 
000114 TOAT=TDAT+1 
012226 114 -BYTE  TOAT 
000115 TDAT=TDAT +1 
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-BYTE  TDAT 
TDAT*TDAT+1 
.BYT AT 


-BYTE  TDAT 
TDAT*TDAT+1 
-BYTE TDAT 
TDAT*TDAT+1 


.BYT 
TDAT=TDAT+1 
-BYTE  TDAT 
TDAT=TDAT+1 
BYT 


TDAT=TDAT+1 


-BYTE  TDAT 
TOAT*TDAT+1 
BYTE  TDAT 


TDAT=TDAT+1 


BYTE a 


TDAT=TDAT+ 


-BYTE  TDAT 


-BYT TOA 
TOAT*TDAT+1 


BYTE  TDAT 
TOAT=TDAT+1 
BYTE TOAT 


TDAT=TDAT+1 


-BYTE  TDAT 
TDAT=TDAT +i 


BYTE 


, TDAT 
TDAT=TDAT+1 
BYTE ‘TDAT 


TDAT=TDAT+1 
BYTE 


TDAT 
TDAT*TDAT +1 
-BYTE  TDAT 
TOAT=TDAT+1 
BYTE ITDAT 





TDAT=TDAT+i 


BYTE  TDAT 
TOAT=TOAT +1 
BYTE  TDAT 
TDAT=TDAT+1 
BYTE TDAT 


TDAT=TDAT+1 


-BYTE  TOAT 





-BYTE  TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 





SEQ 63 





CZOHI-DO 


012264 
012265 
012266 
012267 
012270 
012271 
012272 
012273 
012274 
012275 
012276 
012277 
012300 
012301 
012302 
012303 
012304 
012305 
012306 
012307 
012310 
012311 
012312 
012313 
012314 
012315 
012316 
012317 
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TDAT=TDAT +1 
-BYTE  TDAT 
TDAT=TDAT+1 
-BYTE  TDAT 
TOAT=TDAT +1 
-BYTE  TDAT 
TDAT=TDAT+1 


-BY 
TOAT*TDAT+1 
-BYTE  TDAT 
TOAT=TDAT +1 
-BYTE  TDAT 
TOAT*TDAT+1 
-BYTE TDA 
TOAT*TDAT+1 
-BYTE  TDAT 


, AT 
TOAT*TDOAT +1 


-BYTE  TDAT 
TOAT*TDAT +i 


-BYTE  TDAT 
TDAT*TOAT +1 
-BYTE  TDAT 
TOAT=TDAT+1 

TDOAT 


-BYTE 
TDAT=TDAT +i 
YTE TOA 


-B T 
TOAT=TDAT +1 
TDAT 


-BYTE 
TDAT=TDAT +i 
TOA 





-BYTE  TDAT 
TOAT=TDAT+1 
TDAT 


-BYTE 
TOAT=TOAT +1 


-BYTE TDAT 
TDAT=TDAT +1 
BYTE TDAT 
TOAT=TDAT +1 

TOAT 


TDAT=TOAT +i 


-BYTE  TOAT 
TDAT=TDAT +1 
-BYTE  TDAT 
TDAT=TDAT +1 
E TOAT 


-BYT 
TDAT*TDAT+1 





SEQ 64 


CZDHI-DO 


012320 
012321 
012322 
012323 
012324 
012325 
012326 
012327 
012330 
012331 
012332 
012333 
012334 
012335 
012336 
012337 
012340 
012341 
012342 
012343 
012344 
012345 
012346 
012347 
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TDAT 


-BYTE  TDAT 
TDAT=TDAT+1 


, TOAT 
TDAT=TDAT+1 
-BYTE TDAT 
TDOAT*TDAT+1i 
-BYTE TDAT 
TOAT=TDAT+1 
-BYTE TDAT 
y ag 


° TOAT 
TOAT=TDAT oi 
-BYTE  TDAT 
TOAT*TDAT+1 
-BYTE  TDAT 
TOAT=TDAT+1 
BYTE  TDAT 
TOAT=TDAT+1 
BYTE  TDAT 
TOAT=TDAT +i 
TOAT 
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000243 TDAT=TDAT+1i 
012355 243 BYTE  TDAT 
000244 TDOAT=TDAT+1 
012356 2a4 BYTE  TDAT 
000245 TOAT=TDAT+1 
012357 245 -BYTE  TDAT 
46 TOAT*TDAT+1 
012360 246 -BYTE TDAT 
000247 TDOAT*TDAT+1 
012361 247 -BYTE  TDAT 
000250 TDAT=TDAT+1 
012362 2 TE 
000251 TDAT=TDAT+1 
012363 251 .BYTE  TDAT 
TOAT#=TDAT+1 
012364 252 -BYTE  TDAT 
000253 TDAT=TDAT +1 
012365 253 -BYTE  TDAT 
000254 TOAT=TDAT+1 
012366 254 -BYTE  TDAT 
000255 TDAT=TDAT+1 
012367 255 -BYTE  TDAT 
000256 TDAT*TDAT+1 
012370 256 -BYTE  TDAT 
000257 TOAT=TDAT+1 
012371 257 -BYTE  TDAT 
000260 TDAT=TDAT+1 
012372 260 -BYTE  TDAT 
000261 TDAT=TDAT+1 
012373 261 -BYTE  TOAT 
000262 TDAT=TDAT +1 
012374 262 -BYTE  TDAT 
000263 TDAT=TDAT +1 
012375 263 -BYTE  TDAT 
000264 TDAT=TDAT+1 
012376 264 -BYTE TODAT 
5 TDAT=TDAT +1 
012377 265 -BYTE  TDAT 
000266 TDAT=TDAT +1 
012400 266 -BYTE  TDAT 
000267 TOAT=TDAT +1 
012401 267 -BYTE  TDAT 
000270 TDAT=TDAT +1 
012402 270 -BYTE 
000271 TDAT =TOAT +1 
012403 271 -BYTE  TOAT 
000272 TOAT=TDAT +1 
012404 272 -BYTE 
73 TOAT=TDAT +1 
012405 273 -BYTE  TDAT 
000274 TDAT=TDAT +1 
012406 274 -BYTE 
000275 TDAT=TDAT +1 
012407 275 -BYTE  TOAT 
000276 TDAT=TDAT +1 
012410 276 -BYTE  TDAT 
000277 TDAT=TDAT+1 





EEE Ee a en a 


SEQ 67 
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012411 277 .BYTE TOAT 
000300 TDAT=TDAT+1 
012412 3 BYTE TDAT 
000301 TDOAT=TDAT+i 
012413 301 BYTE TDAT 
000302 TDAT=TDAT+1 
012414 BYTE TDAT 
000303 TDAT=TDAT+1 
012415 303 YTE TDA 
000304 TDOAT=TDAT+1 
012416 BYTE T 
000305 TDAT=TDAT+1i 
012417 305 .BYTE AT 
000306 TDAT=TDAT+1 
022420 -BYTE TDAT 
000307 TDAT=TDAT +1 
012421 307 -BYTE  TDAT 
000310 TDAT=TDAT+1 
012422 310 BYTE AT 
000311 TDAT=TDATei 
012423 311 BYTE TDAT 
000312 TDOAT=TDAT +1 
012424 312 -BYTE  TDAT 
000313 TDAT=TDAT+1 
012425 313 -BYTE TDAT 
000314 TOAT=TDAT +1 
012426 314 -BYTE TDAT 
000315 TDAT=TDAT+1 
012427 315 -BYTE 
000316 TDAT=TDAT+1 
012430 316 -BYTE TOAT 
000317 TDAT=TDAT+1 
012431 317 -BYTE TOAT 
000320 TOAT=TDAT +1 
012432 320 -BYTE TDAT 
000321 TDAT=TDAT +1 
012433 321 -BYTE TODAT 
TPAT*TDAT +1 
012434 322 -BYTE ‘TDAT 
000323 TOAT=TOAT +1 
012435 323 -BYTE TDAT 
000324 TDAT=TDAT+1 
012436 324 -BYTE TDAT 
000325 TDAT=TDAT +1 
012437 325 -BYTE TDAT 
000326 TDAT=TDAT +1 
012440 -BYTE 
000327 TDAT=TDAT +1 
012441 327 -BYTE TDAT 
000330 TDAT=TDAT +1 
012442 3 -BYTE 
000331 TDAT=TDAT+1 
012443 331 E 
000332 TOAT=TDAT +1 
012444 3 -BYTE TDAT 
000333 TDAT=TDAT+1 
012445 333 -BYTE — TOAT 


CZ0HI-D0 


-— 


012446 
012447 
012450 
012451 
012452 
012453 
012454 
012455 
012456 
012457 
012460 
012461 
012462 
012463 
012464 
012465 
012466 
012467 
012470 
012471 
012472 
012473 
012474 
012475 
012476 
012477 
012500 
012501 
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TOAT=TDAT+1 
-BYTE  TDAT 


TOAT=TDAT+1 
-BYTE  TDAT 
TOAT=TDAT+1 


, TDOAT 
TDAT=TDAT +1 
-BYTE  TDAT 
TDAT=TDAT +1 
-BYTE  TDAT 
TOAT=TDAT +1 

YT TDA 


-BYTE  TDAT 
TOAT=TDAT +1 
-BYTE  TDAT 
TDAT=TDAT+1 
-BYTE  TOAT 
TDAT=TDAT +1 
-BYTE  TDAT 
TOAT=TDAT +1 
-BYTE  TDAT 
TDAT=TDAT+1 


\ EEE 064000500 1SORREEC 14s OLaR Eee 


SEG 69 
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012502 370 .BYTE  TOAT 
000371 TDAT#TDAT+1 
012503 371 -BYTE  TDAT 
000372 TOAT=TDAT +i 
012504 372 -BYTE  TDAT 
000373 TRAT=TDAT +i 
012505 373 -BYTE  TDAT 
000374 TDAT=TDAT+1 
012506 374 .BYTE  TOAT 
000375 TDAT=TDAT+1 
012507 375 .BYTE  TDAT 
000376 TDAT=TDAT+1 
012510 376 .BYTE  TDAT 
000377 TDAT=TDAT+1 
012511 377 -BYTE  TDAT 
000400 TDAT=TDAT+1 
12 EVEN 
13 012512 000000 RBUF: 0 
14 012554 .2,+40 





012554 
012554 


012556 
012556 


012560 
012560 


012562 
012562 


012564 
012564 


012566 
012566 


012570 
012570 


012572 
012572 


012574 
012574 


012576 
012576 


012600 
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000020 
127400 
000000 
000020 


-MACRO WORDS WONAME,K,DATA 
DATA 


‘WONAME' K' ; 
-ENDM WORDS 


K=KX 

DATA=DATAX 

KX=0 

-REPT 20 

-NLIST 

i Sct 

WORDS t/RWRD/,\KX, \DATAX 
-NLIST 

KX#KXel 

-LIST 


-ENDR 

DATAX#KX4#400+120000 

WORDS t/RWRD/,\KX, \DATAX 
RWRDO: 120000 


KX*KXel 

DATAX=KX#400 + 120000 

WORDS */RWRD/,\KX, \DATAX 

RWRD1: 

KX#KXei 

DATAX=KX#400+120000 

WORDS t/RWRD/,.\KX, \OATAX 

RWRD2: 121000 

KX2KXel 

DATAX=KX#400+120000 

t/RWRD/ , \KX. \DATAX 
1400 


DATAX=KX#400+120000 
WORDS +*/RWRD/,\KX, \DATAX 
122000 


RWROG: 

KX=KXei 

DATAK=KX#400+120000 

S *t/RWRD/,\KX, \DATAX 
122400 





DATAX=KX#400+ 120000 
WORDS 





i 
DATAX=KX2#400+120000 
WORDS *t/RWRD/,\KX, \DATAX 
RWRD10: 124000 
KX*KXe1 
DATAX=KX4#400+120000 
WORDS ‘t/RWRD/,\KX, \DATAX 

1244060 

KX*KXe+1 


DATAX*KX#400+120000 
WORDS t/RWRD/,\KX, \DATAX 











SEQ 70 


~~ 


— 


—— 
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RWRD12: 125000 


KX*KXo1 
DATAX=KX#400 - 120000 

WORDS *t/RWRD/,\KX, \DATAX 
RWRD13: 125400 

KX =*KXo1 
DATAX=KX4#400+120000 

WORDS t/RWRD/,\KX, \DATAX 
RWRD14: 126000 

KX*KXel1 
DATAX#=KX 4400+ 120000 

WORDS t/RWRD/,\KX,\DATAX 
RWRD1S: 126400 

KX*KXei 
DATAX=KX#400+120000 

WORDS t/RWRD/,\KX,\DATAX 
RWRD16: 127000 

KX=#KXe1 
DATAX#KX#400+1200900 

WORDS t/RWRD/,\KX, \DATAX 
RWRD17: 127400 

KX=KXe1 








CZOHI-D0 


1 012614 
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165170 


177166 


012614 


177042 


165156 


165124 
165070 


-PFAIL 


PFAIL: 


RESTAR: 


PFTAB: 


sENTER HERE ON POWER FAILURE 


SEQ 72 


sSAVE RO-RS ON PROCESSOR STACK 


sSAVE STACK POINTER 
s;SET UP FOR POWER UP TRAP ; 3 
sHALT ON POWER DOWN NORMAL 


sPROCESSOR WILL TRAP HERE WHEN POWER IS RESTORED 


MOV RO,-CSP) 
MOV R2,-(CSP) 
MOV RS,-CSP) 
MOV SP , SAVSP 
MOV @RESTART ,24 
HALT 

BR 

MOV SAVSP , SP 
MOV CSP)+,R5 
MOV (SP)+,R4 
MOV CSP)+,R3 
MOV CSP)+,R2 
MOV CSP)¢,R1i 
MOV (SP)+, 
MOV OPFAIL 24 
MOV #340 ,PS 
MOV @STACK ,SP 
CLR TEMP 
INC TEMP 
BNE .-4 
TYPE 

MCRLF 

OCTASC 

PF TAB 

TYPE 

MPFAIL 

CLR ERRFLG 
CLR LAST 
JMP 

1 

6.2 

RETRN 





sRESTORE STACK POINTER 
sRESTORE RO-R5 


sSET UP FOR POWER FAILURE 








——————— <> 


013114 
013117 
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een a 


-MSG 
012 MTITLE: 
06 


MVECTO: 


MEPASS: 


120 PASTXT: .ASCIZ 


t/DH11 HALF-DUPLEX AND BREAK TEST/,*t/CZDHI-DO/ 


-ASCIZ 


-ASCIZ 


-ASCIZ 


-ASCIZ 
-ASCIZ 
-ASCIZ 


-ASCIZ 





<15><12><12>/DH11 HALF-DUPLEX AND BREAK TEST /<15><12> 


<15><12>/VECTOR ADDRESS-/ 


<15><12>/CONTROL REGISTER ADDRESS-/ 


4 24 


<15><12> 
4 POWER FAILURE, PROGRAM RESTART AT TEST IN PROGRESS/ 


<15><12>/CZDHI-00/ 


<15><12>/PASS COUNT = / 


SEQ 73 


wh 





SO a SS CS SS i SS SSS SSS ise SPR A 
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101 
040 


122 
124 
124 
103 


MR : 
MTSTPC: 


EM1: 


-ASCIZ 
-ASCIZ 


<15><12>/R/ 
<15><12>/TEST PC-/ 


sTABLE OF POINTERS FOR TRAP DECODING 


: SCOPER 
T 


YPER 


sBUFFERS FOR INPUT-OUTPUT 


0 


sTABLE OF POINTERS TO ERROR MESSAGES AND DATA 


EM1 
OT1 


EM2 
OT1 
EM3 


0 
-ASCIZ /MORE THAN 1 CHARACTER RECEIVED/<15><12>/ExP 








SEG 74 


13 


14 





a 
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EMe: -ASCIZ /BREAK DATA ERROR/<15><12>/ExP 


EMS: -ASCIZ /RECEIVER NOT BLINDED/ 


-EVEN 
OT1: 2 
-BYTE 6.2 
SAVRS 
BYTE 6.2 
. SAVR4 
ENDCOD: 0 
-END 


REC/ 





SEQ 75 





a —— 


7 
CZDHI-DO MACRO VO4.0C 27-JUN-85 13:08:01 PAGE 31-3 — 
SYMBOL TABLE 
ADRCNT= 011573 ENDFLG 012056 SAVRO 012030 TYPDAT 011040 
BEGIN 001396 EOP 010500 SAVR1 012032 TYPE = 104401 
BINWRD 011744 ERRCNT 012014 SAVR2 012034 PER 
BITX = 000000 ERRFLG 012010 SAVRS 012036 
BITOO = 000091 ERRMSG 011036 SAVR4 012040 
BITO1 = ERRORS 010716 SAVRS 012042 
BITO2 ~ 000004 ERRTAB 013336 SAVSP 012044 
BITOS = 000010 ERTABO 011122 SAVOSP= 104406 
BITO4 = 000020 ES 012020 SCOPE = 104400 
BITOS = EXITER 011100 SCOPER 010600 
BITO6 = 000100 FREEZ1 012022 SCOPE1= 104410 
BITO7 = 002 HALTS 011060 SCOPiR 010700 
BITOS = 000400 HILIM 011566 SPACNT= 011743 
BITOS = 001000 ICOUNT 012024 STACK = 013724 
BI710 = 002000 013300 START 001 
BIT1i = 004000 INIFLG 012050 STFLG 012052 
BIT12 = 010000 INSTER= 1044 vos 011170 
BIT13 = INSTR = 104403 SVOSP 011162 
BIT14 = 040000 INSTRE 011400 SWR 001 
BITiS5 = 1 INSTRG 011306 SWOO = 000001 
011742 INSTR1 011320 SWO1 = 000002 
CLRAL!. O12 INSTR2 011406 SWO2 = 000004 
DATA = 127400 K ° 20 SWOS = 000010 
T 011054 KX ° SWO4 = 000020 
DATAX = 1274 LAST 012054 SWOS = 000040 
DEVADR 011570 LIGHTS 001002 SWO6 = 000100 
LIMITS 011520 SWOS8 = 
DHBAR 011770 LINACT 12062 SHO9 = 001000 
011766 LI . SWwiO0 = 
OKSCR 011772 LOBITS 011572 SWil = 
DHLPR 011762 LOGICA 010556 SWi2 = 010000 
DHNRC 011760 LOLIN 01 SWi3 = 020000 
DHRLVL O01 LPCNT 012026 SW1i4 = 040000 
012000 MCRLF 013114 SWi5 = 100000 
011756 MDATA 013324 012i1i2 
OHSLR 011776 MEPASS O01 TOAT = 
DHSSR 011774 MPF 013117 013312 
OHTLVL Man 013110 TKCSR 011746 
DHTVEC O01 MR 011750 
OT1 013512 MREGAD 013054 TPCSR 011752 
EM1 013352 MSG 011322 TPOBR 011754 
EM2 013426 MTITLE 012764 TRPOK 11142 
013464 MTSTPC 013243 TRPSRV 0111350 
ENDCOD 013524 MVECTO 013032 TRPTAB 01 





- ABS. 013526 000 
000000 001 
ERRORS DETECTED: 0 
VIRTUAL MEMORY USED: 18176 WORDS ( 71 PAGES) 


DYNAMIC MEMORY AVAILABLE FOR 71 P 
CZDHID .BIN,CZDHID. SEQ=DHMACA .MAC ,CZDHID. P11 








L 


